又是钩子问题(100分)

真搞笑，这样一个小小的钩子程序，也有问题，
unit Hook;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hHook:integer;

implementation

{$R *.DFM}
function rPro(iCode:integer;wParam:wParam;lParam:lParam):LResult;stdcall;
var EvnMsg:TEventMsg;
begin
EvnMsg:=PEventMsg(lParam)^;
if EvnMsg.message=WM_KEYDOWN then
begin
if EvnMsg.paramL=20520 then //‘↓’键被按下
showmessage('↓');
end;

end;
procedure TForm1.Button1Click(Sender: TObject);
begin
hHook:=SetWindowsHookEx(WH_JOURNALRECORD,rPro,HInstance,0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
UnhookWindowsHookEx(hHook);
end;

end.
程序运行后，单击Button1，当按在“↓”键后，那个showmessage('↓')对话筐就老是弹出
哪怕放掉“↓”键，还是一样，为什么呢？真想不通。理论上只有“↓”键按下就弹出，
放开时就不应弹出了啊。为什么呢？谁能说原因呢？100分伺候：）

你并没有释放Keydown的后果啊！呵呵！
加入一个if EvnMsg.message=WM_KEYUP then 。。。 即可！

YB_unique说的没错：）呵呵

原来是要判断两个事件呀，学到了：）

多多努力吧

to YB_unique,为达到释放的目的，应在if EvnMsg.message=WM_KEYUP then 。。。 里写入
的是什么代码呢？请详细说明。

我一做这个就死机，大家也不妨将代码拷到delphi中去编译，肯定就是重起：（

再说明一下上边程序的症状吧，运行后，单击button1后，windows就不处理别的消息了，只有
那个可恶的对话框老是弹出，理论上应只弹出一次才对。我把程序改成如下：
nit Hook;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hHook:integer;
HFile:TextFile;
implementation

{$R *.DFM}
function rPro(iCode:integer;wParam:wParam;lParam:lParam):LResult;stdcall;
var EvnMsg:TEventMsg;
begin
EvnMsg:=PEventMsg(lParam)^;
if EvnMsg.message=WM_KEYDOWN then
begin
if EvnMsg.paramL=20520 then
begin
AssignFile(HFile,'HFile.Txt');
ReWrite(HFile);
Writeln(HFile,'按下');
CloseFile(HFile);
end;
end ;

end;
procedure TForm1.Button1Click(Sender: TObject);
begin
hHook:=SetWindowsHookEx(WH_JOURNALRECORD,rPro,HInstance,0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(hHook);
end;
end。
它就只往文件里写入一次，什么问题都没有了，
这到底是什么回事呢？

ReWrite(HFile)是新建一个文件，如果存在就覆盖。

问题中、、、

钩子程序不能在IDE中调试、运行，
如果你直接运行程序就不会出现对话框老是弹出的问题。

收了此贴！

收了

多人接受答案了。