Formumuza Masaüstü Bitmap'ini Kopyalayın
Formunuza bir buton (Button1) ekleyin ve butonun OnClick Eventine aşağıdaki kodu yazın
procedure TForm1.Button1Click(Sender: TObject);
var
dd:integer;
begin
dd:=form1.GetDeviceContext(dd);
paintdesktop(dd);
end;
Bu fonksiyon sadece masaüstünde duvar kağıdı olarak bitmap bir resim varsa getiriyor eğer duvarkağıdı olarak Gif veya HTML seçiliyse bu fonksiyon Masaüstünde en son ayarlanan bitmap görüntüyü getiriyor.
Formunuza bir buton (Button1) ekleyin ve butonun OnClick Eventine aşağıdaki kodu yazın
procedure TForm1.Button1Click(Sender: TObject);
var
dd:integer;
begin
dd:=form1.GetDeviceContext(dd);
paintdesktop(dd);
end;
Bu fonksiyon sadece masaüstünde duvar kağıdı olarak bitmap bir resim varsa getiriyor eğer duvarkağıdı olarak Gif veya HTML seçiliyse bu fonksiyon Masaüstünde en son ayarlanan bitmap görüntüyü getiriyor.