Como Cambiar El Papel Tapiz De Windows

[dagsoft]

Holas, Espero que me puedan ayudar programo en delphi 6 me aria falta saves como cambiar el fondo de pantalla(wallpaper o paperl tapiz) de windows, yo lo hago con SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('direccion'),SPIF_UPDATEINIFILE); //en direccion va la direccion de donde se encuantra la imagen por ejemplo: C:\dagsoft.bmp, pero mi problema es el siguiente: " Este codigo es solamente para establecer como wallpaper archivos .Bmp y me hace falta poner un jpg

Si alguien sabe como poner con delphi como fondo de pantalla un archivo *.jpg o *.gif que me diga please


Saludos DG

[jhonny]

Realmente tiene que ser mas sencillo que esto, pero he tratado de ser algo recursivo con el asunto... , convirtiendo de Jpg a Bmp y luego cambiando el papel tapiz.

Sacando los dos trucos del trucomania

Primero hay que añadir Jpeg a tu unidad.

Código Delphi [-]
procedure convertir;
var
  MyJPEG : TJPEGImage;
  MyBMP : TBitmap;
begin
   MyJPEG := TJPEGImage.Create;
   with MyJPEG do 
   begin
      LoadFromFile('C:\logo.JPG');//logo es la imagen JPG
      MyBMP := TBitmap.Create;
      with MyBMP do 
      begin
         Width := MyJPEG.Width;
         Height := MyJPEG.Height;
         Canvas.Draw(0,0,MyJPEG);
         SaveToFile('C:\logo.bmp');//La imagen a guardar.
         Free;
      end;
    Free;
   end;
end;

Y...

Código Delphi [-]
procedure cambiartapiz;
begin 
   convertir;
   SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('C:\logo.bmp'),SPIF_UPDATEINIFILE);
end;

es un ejemplo...Espero te sirva de algo.

[dagsoft]

Muchas Gracias, Esto me va a servir temporalmente porque cuando vos pasas un *.png, *.gif o *.jpg se pierde toda calidad, aparte si pasas de un gif a un *.bmp perdes los movimientos.

Entendes?=
Espero que me entindas
Saludos Daniel
Muchas Gracias

[jhonny]

Entendes?=
Espero que me entindas

Si claro que entiendo lo que te sucede sobre todo con lo de los *.gif, lo que no entiendo es, ¿no se supone que el formato de BMP es de mas calidad que el de jpg, debido a que se maneja pixel por pixel?...// Es que regularmente cuando convierto una imagen Gif o Jpg o Png a BMP no pasa nada malo(En cuanto a lo de calidad de imagen se trata), pero si hago lo contrario si se daña la calidad un poco.

[dagsoft]

sip tenes razón!!!!

gracias pero tengo problema con el codigo que me mandaste me marca error en

MyJPEG : TJPEGImage;
MyBMP : TBitmap;
me dice
[Error] Unit1.pas(178): Undeclared identifier: 'TJPEGImage'
[Error] Unit1.pas(181): Missing operator or semicolon
y en esta parte no puedo poner asi
LoadFromFile(edit1.Text + ListBox1.Items.Strings[listbox1.ItemIndex]);//logo es la imagen JPG

ya que:

• en el edit1: se encuentra la direccion
• y en la lista(en el item de la lista encuentro el nombre)

Gracias de nuevo

Saludos DG
Espero que me puedan ayudar

[jhonny]

Empezado por dagsoft

[Error] Unit1.pas(178): Undeclared identifier: 'TJPEGImage'

Bueno, el error es porque no haz agregado la unidad Jpeg a la unidad donde estas poniendo dicho codigo.