11-03-2014, 10:05 PM
11-03-2014, 10:26 PM
السلام عليكم
كود :
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;
