Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
procedure TForm1.FormCreate(Sender: TObject); var St : string; begin St := 'C:\MyWallPaper.Bmp'; SystemParametersInfo(SPI_SETDESKWALLPAPER,UINT(St),nil,SPIF_SENDCHANGE); end;