Obtener Wallpaper en XP

[MaMu]

Bueno, muchas gracias a ambos por las respuestas, acabo de probare las dos soluciones y a ver si andan de maravillas.

Gracias again, Saludos

[MaMu]

No no, no me funcionan

Instalé el componente, pero no pasa nada, que puede ser??

Código Delphi [-]
  abfImage1.Picture.LoadFromFile('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text);
  WPChanger1.Wallpaper:='C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text;

Saludos

[[seoane]]

Empezado por mamu

No no, no me funcionan

Probaste el truco que te recomende ???

[dec]

Hola,

Conste que yo no miré siquiera el componente que enlazé... pero lo hize porque intuía que podías sacar tus propias conclusiones de él... o usarlo, si es que lo veías oportuno. Pero, en todo caso, si no funciona, el asunto parece claro: hasta Windows Vista no se admiten "wallpapers" que no sean archivos BMP, por lo tanto cualquier otro tipo de archivo hay que convertirlo a BMP para poder asignarlo como "wallpaper" en Windows.

Por ahí van los tiros del truco de Seoane.

[MaMu]

Empezado por seoane

Probaste el truco que te recomende ???

Si, y no le puedo encontrar la vuelta, mira:

Código Delphi [-]
procedure TLocal.dxButton11Click(Sender: TObject);
var exten,root : string;
begin
root:=ExtractFilePath(Application.ExeName);
//Lo curioso de la línea que sigue, es que me toma los jpg, y digo curioso 
//por no decir raro, ya que me fije y el componente no admite otra ext. que
//no sea BMP, y me toma los JPG, cosa "e mandiga, vió?"
abfImage1.Picture.LoadFromFile('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text);
exten:=ExtractFileExt(ComboBox1.Text);
if (exten='JPG') then SetWallpaper('C:\WINDOWS\Web\Wallpaper'+ComboBox1.Text,root+'temp\nuevo.bmp')
else Exit;

end;

[MaMu]

Voy a probar con la clasica reiniciada de compu.

"Close your windows, Open your Windows" (Microsoft Technical Support)

Saludos

[dec]

Hola,

En el código de arriba veo dos cosas posiblemente problemáticas. Primero no compruebas si el archivo en cuestión existe o no. Puede parecer una tontería, pero, si no lo compruebas no sabrás si existe o no.

Y segundo, comparas el resultado de "ExtractFileExt" con "JPG", así, en mayúsculas, y creo recordar que esa función retorna el resultado en minúsculas... y que incluso llega a incluir el punto al principio, es decir, algo así en este caso: ".jpg".

[[seoane]]

Solo 2 cosas sobre tu código. Primero usas:

Código Delphi [-]
'C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text

Y luego usas:

Código Delphi [-]
'C:\WINDOWS\Web\Wallpaper'+ComboBox1.Text

Así que en uno sobra un '\' o falta en el otro.

Y también asegurate de que el directorio "root+'temp\" existe, y de que la variable root tiene el '\' al final.

Una vez corregido eso, podemos entrar a discutir el truco

[MaMu]

Empezado por seoane

Solo 2 cosas sobre tu código. Primero usas:

Código Delphi [-]
'C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text




Y luego usas:

Código Delphi [-]
'C:\WINDOWS\Web\Wallpaper'+ComboBox1.Text




Así que en uno sobra un '\' o falta en el otro.

Y también asegurate de que el directorio "root+'temp\" existe, y de que la variable root tiene el '\' al final.

Una vez corregido eso, podemos entrar a discutir el truco

Lo de las barras solo salió mal acá, corté y pegué mal y lo retoque a ojo, se ve que se me pasó. Sabes que me adelanté a lo que haces mención y habia incluido estas lineas para chequear las rutas:

Código Delphi [-]
showmessage('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text);
showmessage(root+'temp\nuevo.bmp');

y las dos salen bien, el directorio existe, pero en ningun momento se crea el bmp. No se que pasa.

[MaMu]

Hasta ahora llevo esto

Código Delphi [-]
procedure TLocal.FormShow(Sender: TObject);
var i:integer;
begin
ComboBox1.Clear;
  for i:=0 to FileListBox1.Items.Count-1 do
    begin
      ComboBox1.Items.Add(FileListBox1.Items.Strings[i]);
    end;
ComboBox1.ItemIndex:=0;
Edit1.Text:=GetWallpaperBitmap(); //Lo carga lo más bien
abfImage1.Picture.LoadFromFile(Edit1.Text);
end;

y esto

Código Delphi [-]
procedure TLocal.dxButton11Click(Sender: TObject);
var exten,root : string;
begin
root:=ExtractFilePath(Application.ExeName);
abfImage1.Picture.LoadFromFile('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text);
exten:=ExtractFileExt(ComboBox1.Text);
if (exten='JPG') then SetWallpaper('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text,root+'temp\nuevo.bmp');
Local.OnShow(self);
end;

Me sigue dejando el que estaba, chequié el registro de windows, y la clave permanece sin ser alterada.

No doy con la tecla