Obtener Wallpaper en XP

[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;