Anasayfa > Kodlar > Delphi ile Formumuza masaüstü bitmap’ini kopyalayın

Delphi ile 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.

Ertan Tike


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: