文件名称：delphi_键盘记录例子
文件大小：243KB
文件格式：RAR
更新时间：2014-02-14 04:07:26
delphi_键盘记录例子
unit keyboard_hook; interface uses Windows,Messages; const WM_HookKEY=WM_USER+$1000; procedure HookOn;stdcall; procedure HookOff;stdcall; implementation var Hook:HHOOK; FileMapHandle:THandle; PViewInteger:^Integer; function CallHook(iCode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; begin if iCode=HC_ACTION then begin //打开映像文件 FileMapHandle:=OpenFileMapping(FILE_MAP_READ,False,'TestHook'); if FileMapHandle<>0 then begin //映射入内存中 PViewInteger:=MapViewOfFile(FileMapHandle,FILE_MAP_READ,0,0,0); //PViewInteger指向主程序句柄，WM_HookKEY是自定义消息 PostMessage(PViewInteger^,WM_HookKEY,wParam,lParam); UnmapViewOfFile(PViewInteger); CloseHandle(FileMapHandle); end; end; Result:=CallNextHookEx(Hook,iCode,wParam,lParam); end;
【文件预览】：
键盘记录
----keyboard.identcache(231B)
----KeyBoardRecord.dcu(4KB)
----keyboard_hook.pas(1KB)
----keyboard.dll(83KB)
----__history()
--------keyboard_hook.pas.~16~(871B)
--------KeyBoardRecord.dfm.~7~(824B)
--------KeyBoardRecord.dfm.~2~(653B)
--------keyboard_hook.pas.~15~(820B)
--------KeyBoardRecord.pas.~19~(1KB)
--------KeyBoardRecord.dfm.~4~(808B)
--------keyboard_hook.pas.~10~(254B)
--------KeyBoardRecord.pas.~21~(1KB)
--------keyboard_hook.pas.~19~(1KB)
--------KeyBoardRecord.pas.~18~(1KB)
--------KeyBoardRecord.pas.~20~(1KB)
--------keyboard_hook.pas.~17~(871B)
--------KeyBoardRecord.dfm.~3~(808B)
--------keyboard_hook.pas.~13~(627B)
--------keyboard_hook.pas.~18~(978B)
--------keyboard_hook.pas.~12~(413B)
--------keyboard.dpr.~1~(738B)
--------KeyBoardRecord.pas.~16~(1KB)
--------KeyBoardRecord.pas.~22~(1KB)
--------KeyBoardRecord.pas.~23~(1KB)
--------KeyBoardRecord.pas.~17~(1KB)
--------KeyBoardRecord.dfm.~5~(838B)
--------KeyBoardRecord.dfm.~1~(496B)
--------keyboard_hook.pas.~14~(747B)
--------KeyBoardRecord.pas.~15~(1KB)
--------KeyBoardRecord.dfm.~6~(799B)
--------KeyBoardRecord.pas.~14~(1012B)
--------keyboard_hook.pas.~11~(335B)
----KeyBoardRecord.pas(1KB)
----RecordKeyBoard.dpr(254B)
----keyboard.dproj(4KB)
----RecordKeyBoard.dproj(4KB)
----keyboard_hook.dcu(1KB)
----keyboard.dproj.local(1KB)
----RecordKeyBoard.dproj.local(870B)
----keyboard.res(5KB)
----RecordKeyBoard.identcache(238B)
----RecordKeyBoard.res(5KB)
----keyboard.dpr(770B)
----KeyBoardRecord.dfm(852B)
----RecordKeyBoard.exe(415KB)