Цитата(kami @ 10.7.2009, 21:13  ) | | я так понимаю, что нужно передать хендл открытого файла, чтобы не открывать/закрывать его каждый раз при вызове хука, так? |
не совсем понимаю, зачем это нужно делать?
Вроде вот так работает...
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
end;
var
Form1: TForm1;
implementation
var
hHook: THandle;
function LowLevelKeyboardProc(nCode: Integer;
WParam: WPARAM; LParam: LPARAM): LRESULT stdcall;
type
PKbdDllHookStrukt = ^TKbdDllHookStrukt;
_KBDLLHOOKSTRUCT = record
vkCode: DWORD;
scanCode: DWORD;
flags: DWORD;
time: DWORD;
dwExtraInfo: PDWORD;
end;
TKbdDllHookStrukt = _KBDLLHOOKSTRUCT;
var
f:TextFile;
begin
if ncode < 0 then
begin
Result := CallNextHookEx(hHook, nCode, WParam, LParam);
Exit;
end;
if WParam = WM_KEYDOWN then
begin
assignfile(f, 'c:\log.txt');
try
append(f);
except
rewrite(f);
end;
case PKbdDllHookStrukt(LParam)^.vkCode of
65:writeln(f,'sv:vh '+inttostr(BUF_KLUBDI[4]));
68:writeln(f,'sv:vy '+inttostr(BUF_KLUBDI[4]));
83:writeln(f,'sv:ma '+inttostr(BUF_KLUBDI[4]));
70:writeln(f,'sv:pr '+inttostr(BUF_KLUBDI[4]));
80:writeln(f,'zapre '+inttostr(BUF_KLUBDI[4]));
81:writeln(f,'pr:no '+inttostr(BUF_KLUBDI[4]));
87:writeln(f,'pr:ox '+inttostr(BUF_KLUBDI[4]));
69:writeln(f,'perex '+inttostr(BUF_KLUBDI[4]));
82:writeln(f,'putep '+inttostr(BUF_KLUBDI[4]));
84:writeln(f,'gazop '+inttostr(BUF_KLUBDI[4]));
89:writeln(f,'ponab '+inttostr(BUF_KLUBDI[4]));
85:writeln(f,'svist '+inttostr(BUF_KLUBDI[4]));
73:writeln(f,'om:na '+inttostr(BUF_KLUBDI[4]));
79:writeln(f,'om:ko '+inttostr(BUF_KLUBDI[4]));
90:writeln(f,'pl:na '+inttostr(BUF_KLUBDI[4]));
88:writeln(f,'pl:ko '+inttostr(BUF_KLUBDI[4]));
67:writeln(f,'mo:na '+inttostr(BUF_KLUBDI[4]));
86:writeln(f,'mo:ko '+inttostr(BUF_KLUBDI[4]));
66:writeln(f,'tu:na '+inttostr(BUF_KLUBDI[4]));
78:writeln(f,'tu:ko '+inttostr(BUF_KLUBDI[4]));
71:writeln(f,'pt:na '+inttostr(BUF_KLUBDI[4]));
72:writeln(f,'pt:ko '+inttostr(BUF_KLUBDI[4]));
74:writeln(f,'et:na '+inttostr(BUF_KLUBDI[4]));
75:writeln(f,'et:ko '+inttostr(BUF_KLUBDI[4]));
end;
close(f);
end;
Result := CallNextHookEx(hHook, nCode, WParam, LParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
const
WH_KEYBOARD_LL = 13;
begin
hHook := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);
if hHook = 0 then RaiseLastOSError;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if not UnhookWindowsHookEx(hHook) then RaiseLastOSError;
end;
end.
|
|
