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