+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أغير خلفية الديسك توب من مجلد معين ...؟ (/showthread.php?tid=6011)
كيف أغير خلفية الديسك توب من مجلد معين ...؟ - karika2 - 11-03-2014
بسم الله الرحمن الرحيم
كيف أغير خلفية الديسك توب من مجلد معين ...؟
كيف أغير خلفية الديسك توب من مجلد معين ...؟ - Agmcz - 11-03-2014
السلام عليكم
كود :
http://stackoverflow.com/questions/1929721/how-to-change-desktop-wallpaperPHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
PicPath: String;
begin
PicPath := 'C:\test.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(PicPath), SPIF_SENDCHANGE)
end;