MENANGKAP SCREEN DESKTOP DENGAN DELPHI

MENANGKAP SCREEN DESKTOP

Salam klikq........

Sering kita menangkap screen desktop kita yang sedang aktif dengan menekan print screen dan mempastenya pada image editor atau ms. Word....nah dengan konsep ini kita akan mencobanya menangkap screen capture desktop kita dengan delphi 7 dan menyimpannya dengan format  BMP.

Oke2....langsung aja yah.....

Pertama siapkan delphi 7 dulu....klo anda belum punya silahkan klik disini

Klo sudah siap buka proyek baru pd delphi anda...kita membutuhkan 2 komponent saja untuk screen capture ini...apa mas 2 saja..iya 2 saja simple kan....hhehhe

Anda hanya membutuhkan tbutton dan tsavepicturedialog.

Tsavepicturedialog itu dimana....anda bisa klik components pallete--> pilih dialog -->tsavepicturedialog.

.
 

Pada event onclick di tbutton tambahkan kode dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

  dcdesk : HDC;

  bmp :tBITMAP;

begin

  {membuat bitmap}

  bmp :=TBitmap.Create;

  {mengatur lebar tinggi dari bitmap}

      bmp.Height := Screen.Height;

      bmp.Width := Screen.Width;

  {mencari dan mendapatkan desktop DC handle}

        dcdesk := GetWindowDC(GetDesktopWindow);

        BitBlt(bmp.Canvas.Handle,0,0,screen.Width,screen.Height,dcdesk,0,0,SRCCOPY);

        SavePictureDialog1.Title :='simpan hasil capture';

  {menyimpan bitmap}

    if SavePictureDialog1.Execute then

      bmp.SaveToFile(SavePictureDialog1.FileName);

      ReleaseDC(GetDesktopWindow,dcdesk);

      bmp.Free;

end;

end.

Kemudian klik run/F9  klik capture-->simpan pada folder yang anda inginkan...

 

Klik save.

Nah kita sudah dapat membikin software untuk screen capture...terima kasih sudah mengunjungi blog ini...jangan lupa tinggali komentar yeeeeeeee....

Salam klikq

Posted in: tutorial delphi