Как сменить обои на рабочем столе?

Code:

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 "имя файла с картинкой"