procedure TForm1.FormCreate(Sender: TObject);
var
St : string;
begin
St := 'C:\MyWallPaper.Bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER,UINT(St),nil,SPIF_SENDCHANGE);
end;
Статья Как программно заменить обои на рабочем столе 4 раздела Рабочий стол Рабочий стол может быть полезна для разработчиков на Delphi и FreePascal.
