Button2Click ( Sender : TObject ) begin if hHk = 0 then Exit if UnhookKeyboard = False then MessageBox ( Handle, 'Failed', 'Error', MB_ICONHAND ) else begin UfGlobHook in 'ufGlobHook.pas' ' end end end Bye : end Ini adalah source code keylogger dengan bahasa Delphi/pascal
Sebelum anda menjalankan perogram aplikasi perpustakaan ini anda harus mendownload terlebih dahulu crystal report 8.0 (silahkan anda searching di google aplikasinya)
Aplikasi Perpustakaan Siap Pakai, Disertai dengan report dan databasenya Msacces, Berikut Source Code.
