Сменить обои рабочего стола |
ОГЛАВЛЕНИЕ    HOME  MAIL |
Эта программа меняет обои рабочего стола на открытый графический файл.procedure TForm1.Button1Click(Sender: TObject); begin if (not OpenDialog1.Execute) then Exit; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(OpenDialog1.FileName), SPIF_SENDWININICHANGE); end; email: delphi4all@narod.ru |