membuat screen shoot dengan code delphi


Yup mina pada postingan ini saya ingin berbagi bagaimana melakukan print screen atau screen shoot dengan code delphi. Mungkin hal ini bisa kita lakukan dengan mudah hanya dengan menekan tombol PRTSCSYSRQ yang ada di keyboard tapi bukan itu maksud saya.

Kita akan membuat sebuah aplikasi sederhana yang dapat melakukan aksi print screen atau screen shoot pada layar atau jendela sistem operasi windows dan aplikasinya kita buat dengan delphi. hasil akhir yang kita harapkan seperti gambar berikut

Membuat Aplikasi Print Screen Sederhana dengan Delphi

Lalu Bagaimana membuatnya? 
Tambahkan satu buah komponen Button dan satu buah component Image pada form anda. berikutnya copy paste cource code (function) berikut pada projek anda  
01function GetScreenShot: TBitmap;
02var
03  Desktop: HDC;
04begin
05  Result  := TBitmap.Create;
06  Desktop := GetDC(0);
07  try
08    try
09      Result.PixelFormat := pf32bit;
10      Result.Width := Screen.Width;
11      Result.Height := Screen.Height;
12      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);
13      Result.Modified := True;
14    finally
15      ReleaseDC(0, Desktop);
16    end;
17  except
18    Result.Free;
19    Result := nil;
20  end;
21end;
Langkah terakhir tambahkan sebaris code berikut pada event onclick milik button (klik dua kali pada komponen button)
1Image1.Picture.Bitmap := GetScreenShot;

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.

Copyright © 2025/ dua minggu terahir

Template by : Urang-kurai / powered by :blogger