str:='D:\wallpapers\pic051103.jpg';
  SystemParametersInfo(SPI_SETDESKWALLPAPER,0, @str,
    SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE);