Source Code untuk Meng-Capture Screen

         Biasanya bila kita ingin mengCapture Screen atau tampilan layar yang sedang terlihat di layar monitor dan kemudian ingin menyimpannya menjadi sebuah gambar, kita melakukannya dengan menekan tombol PrintScreen pada keyboard. Tetapi kali ini kita akan coba melakukannya secara otomatis dengan menggunakan Source Code. Sebelum mencobanya silahkan download dulu file pct_dll.dll  disini. File pct_dll.dll merupakan sumbangan dari TeknoSDS di tek-tips.com. Setelah teman - teman download, ekstrak dan lakukan set default to ke folder tempat teman - teman tempatkan file pct_dll.dll. Kemudian jalankan source code di bawah ini :

cFile=GETFILE("Bitmap Image:bmp","Nama Gambar", ;
 "&Simpan",0,"Simpan Gambar Hasil Capture")
IF(EMPTY(cFile))
 RETURN .f.
ENDIF  
Declare Integer formtobmp IN "PCT_DLL.dll" integer hwnd, ;
 String bmpFileName
retVal = formtobmp(0,cFile)
IF retval = 0
   MESSAGEBOX("Capture Screen Berhasil!")
ELSE
   MESSAGEBOX("Capture Screen Gagal!")
ENDIF



Source : http://www.foxpromania.com
terima kasih untuk mas Andy Pu :)