Reakce na odpověď

Tak zkus mrknout sem: http://delphi.about.com/od/windowsshellapi/a/tregis try.htm

Tato část kódu:

//update changes immediately
      SystemParametersInfo (SPI_SETDESKWALLPAPER,0, nil,SPIF_SENDWININICHANGE) ;
      SystemParametersInfo (SPI_SETSCREENSAVEACTIVE,0, nil,SPIF_SENDWININICHANGE) ;

Dále zajímavé čtení:
http://www.chami.com/tips/delphi/111696D.html
http://www.codeproject.com/tools/wallpaperq.asp
http://msdn.microsoft.com/coding4fun/inthebox/wallp aper2/default.aspx

WinXP: animovaný gif jako wallpaper