Mega Code Archive

 

Categories / Delphi / System

 

Duvar kagidi degistirme

Programinizin calismasi esnasinda, arzu ettiginiz bir duvar kagidinin kullanilmasini ister misiniz? Iste bunu halletmenin yolu. procedure TForm1.FormCreate(Sender: TObject); var Reg: TRegIniFile; begin Reg := TRegIniFile.Create('Control Panel'); Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\forest.bmp'); Reg.WriteString('desktop', 'TileWallpaper', '1'); Reg.Free; SystemParametersInfo(SPI_SETDESKWALLPAPER,0, nil, SPIF_SENDWININICHANGE); end;