| Эта программа меняет обои рабочего стола на открытый графический файл. Code procedure TForm1.Button1Click(Sender: TObject);
begin<BR>if (not OpenDialog1.Execute) then Exit;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,PChar(OpenDialog1.FileName), SPIF_SENDWININICHANGE);
end;
| 
