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 "имя файла с картинкой"
Статья Как программно заменить обои на рабочем столе 5 раздела Рабочий стол Рабочий стол может быть полезна для разработчиков на Delphi и FreePascal.
