Сменить обои рабочего стола

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (not OpenDialog1.Execute) then Exit;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,
    PChar(OpenDialog1.FileName), SPIF_SENDWININICHANGE);
end;