Как программно заменить обои на рабочем столе 5

program change;
uses 
  windows; 
var 
  s: string; 
begin 
  s := paramStr(1); 
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @S[1], 
    SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE); 
end.

// Запускаешь:
// change.exe "имя файла с картинкой"