delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف أغير خلفية الديسك توب من مجلد معين ...؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم
كيف أغير خلفية الديسك توب من مجلد معين ...؟Wink
السلام عليكم
كود :
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;