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
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
01 | function GetScreenShot: TBitmap; |
05 | Result := TBitmap. Create ; |
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 ; |
15 | ReleaseDC(0, Desktop); |
Langkah terakhir tambahkan sebaris code berikut pada event onclick milik button (klik dua kali pada komponen button)
1 | Image1.Picture.Bitmap := GetScreenShot; |
0 komentar:
Posting Komentar