Obtener Wallpaper en XP

[MaMu]

Existe alguna forma de saber cual es el wallpaper (Papel Tapiz, Fondo de Escritorio) que esta usando windows XP? Me refiero a saber cual esta configurado para mostrarse.

Saludos

[dec]

Hola,

Código Delphi [-]
function GetWallpaperBitmap(): string;
const
  SPI_GETDESKWALLPAPER = $0073;
var
  wpFName: array [0..MAX_PATH] of char;
begin
  SystemParametersInfo(SPI_GETDESKWALLPAPER,MAX_PATH,@wpFName,0);
  result := wpFName;
end;

Según pude encontrarlo aquí...

[MaMu]

Gracias, me vino al pelete, ya que no queria hacerlo leyendo el registro de windows. Ahora bien, tenes idea porque no puedo cambiarlo por codigo cuando la extensión no es BMP, por ejemplo JPG.

Probé con esto, pero los JPG no me los toma, y todos los wallpapers que tengo son JPG...

Código Delphi [-]
 Bitmap:='c:\file\back.bmp';
      SystemParametersInfo(SPI_SETDESKWALLPAPER,0,Pchar(BitMap),SPIF_UPDATEINIFILE +
                           SPIF_SENDWININICHANGE);

Saludos y gracias again

[[seoane]]

Empezado por mamu

Ahora bien, tenes idea porque no puedo cambiarlo por codigo cuando la extensión no es BMP, por ejemplo JPG.

Pues la razón es que los wallpaper solo pueden ser bmps. Cuando tu escoges una imagen jpg como fondo de pantalla (desde el Internet Explorer, el "Vista previa", etc ...), lo que hacen es convertirla a bmp, guardar la imagen en una carpeta temporal y usar ese bmp como fondo de pantalla.

Otra cosa es que tengas el "Active Desktop" activado. Así si que puedes ver jpgs, gifs, paginas webs, etc ... como fondo de pantalla. Pero entonces se maneja de forma diferente.

De todas formas mira el truco 64. Creo que resolvera tu problema.

[dec]

Hola,

Parece que no se admite sino el formato BMP. Tal vez Windows convierta los archivos JPG a BMP cuando selecciona uno. En la ayuda de la función "SystemParametersInfo" puede leerse esto en relación a la constante "SPI_SETDESKWALLPAPER":

Sets the desktop wallpaper. The value of the pvParam parameter determines the new wallpaper. To specify a wallpaper bitmap, set pvParam to point to a null-terminated string containing the full path to the bitmap file. Setting pvParam to "" removes the wallpaper. Setting pvParam to SETWALLPAPER_DEFAULT or NULL reverts to the default wallpaper.

Starting with Windows Vista, pvParam can specify a .jpg file.

En Torry's tienes un componente de nombre WallpaperChanger, que "admite" archivos JPG, empero, los convierte a BMP previamente. En todo caso tal vez te sea de algún modo útil.

[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