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