كيف أغير خلفية الديسك توب من مجلد معين ...؟

[karika2]

بسم الله الرحمن الرحيم
كيف أغير خلفية الديسك توب من مجلد معين ...؟

[Agmcz]

السلام عليكم

كود :

http://stackoverflow.com/questions/1929721/how-to-change-desktop-wallpaper

PHP كود :

procedure TForm1.Button1Click(Sender: TObject); 
var   
  PicPath: String; 
begin 
  PicPath := 'C:\test.bmp';   
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(PicPath), SPIF_SENDCHANGE) 
end;