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'); MyBMP := TBitmap.Create;
with MyBMP do
begin
Width := MyJPEG.Width;
Height := MyJPEG.Height;
Canvas.Draw(0,0,MyJPEG);
SaveToFile('C:\logo.bmp'); 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.