用钩子监测键盘，按一下键为什么出现两次啊(50分)

我用钩子来监测键盘，来记录按下的是哪个键，可是记录结果总是把键记录了2次，这是为什么。
原代码如下，很简单的问题，可是我却不会，望大家指点。

unit mainfrm;
interface
uses
; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
; StdCtrls;
type
; TForm1 = class(TForm)
; ; procedure FormCreate(Sender: TObject);
; ; procedure FormDestroy(Sender: TObject);
end;

{the prototype for the new keyboard hook function}
function KeyboardHook(nCode: Integer; wParam: WPARAM;
; ; ; ; ; ; ; ; ; ; ; ; lParam: LPARAM): LResult; stdcall;

var
; Form1: TForm1;
; WinHook: HHOOK; ; ; // a handle to the keyboard hook function

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin

; {install the keyboard hook function into the keyboard hook chain}
; WinHook:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, 0, GetCurrentThreadID);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
; {remove the keyboard hook function from the keyboard hook chain}
; UnhookWindowsHookEx(WinHook);
end;

function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult;
var
; debugfile:textfile;
begin
; {if we can process the hook information...}
; ; if (nCode>-1) then
; ; assignfile(debugfile,'c:/test.txt');
; ; append(debugfile);
; ; if getkeystate(vk_return)<0 then
; ; begin
; ; ; write(debugfile,char(wparam))
; ; end
; ; else
; ; begin
; ; ; write(debugfile,char(wparam));
; ; ; closefile(debugfile);
; ; ; result:=0;
; ; end;
; if (nCode<=-1) then
; ; {we must pass the hook information to the next hook in the chain //setdoubleclicktime}
; ; Result := CallNextHookEx(WinHook, nCode, wParam, lParam);

end;

end.

记录2次是因为第一次是Key Down，第二次是Key Up；你可以用以下方式判断是Key Down
还是Key Up：(lParam and $80000000) > 0表示Key Up。

同意

关注！

？？？

function KeyboardHook(nCode: Integer; wParam: WPARAM;
; ; ; ; ; ; ; ; ; ; ; ; lParam: LPARAM): LResult; stdcall;

是不是少了一个参数？

这是因为键盘Hook是会同时响应WM_KEYUP和WM_KEYDOWN消息的阿！
你按下一个键，会触发WM_KEYDOWN消息，然后松开他（不要告诉我你不会松开 ），
就会触发WM_KEYUP消息，这两个消息都会被你的Hook抓到，于是乎，
就这样了。

呵呵，来慢了......

我后来也明白了,不过说话算数,先来为大,给SYGZCH上供50分