Сменить обои рабочего стола
Эта программа меняет обои рабочего стола на открытый графический файл. На форму нужно бросить компонент OPENDIALOG1 - находится он на вкладке DIALOGS.. (есть недостаток работает только с рисунками bmp) procedure TForm1.Button1Click(Sender: TObject);begin
if (not OpenDialog1.Execute) then Exit;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,
PChar(OpenDialog1.FileName), SPIF_SENDWININICHANGE);
end;