这是随书光盘的例子，我改了一句，出现了问题，帮我看看！！！(100分)

jh_muse · 2003-11-06

unit Main; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     Button2: TButton;     ListBox1: TListBox;     Edit3: TEdit;     Label3: TLabel;     Edit4: TEdit;     Label4: TLabel;     Button3: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure ListBox1DblClick(Sender: TObject);     procedure Edit1Change(Sender: TObject);     procedure Edit1KeyPress(Sender: TObject; var Key: Char);     procedure Button3Click(Sender: TObject);   private     function keyhookresult(lp:integer;wp:integer)

char;     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   hookkey:string;   hooktimes:word;   hhook:integer;   PbFlowContrNo:String;   function HookProc(iCode:integer;wParam:wParam;lparam:lParam):LResult;stdcall; implementation {$R *.dfm} function tform1.keyhookresult(lp:integer;wP:integer)

char; begin   result:='[Print Screen]';   case lp of     14354:result:='[Alt]';     10688:result:='`';     561:result:='1';     818:result:='2';     1075:result:='3';     1332:result:='4';     1589:result:='5';     1846:result:='6';     2103:result:='7';     2360:result:='8';     2617:result:='9';     2864:result:='0';     3261:result:='-';     3515:result:='=';     4177:result:='Q';     4439:result:='W';     4677:result:='E';     4946:result:='R';     5204:result:='T';     5465:result:='Y';     5717:result:='U';     5961:result:='I';     6223:result:='O';     6480:result:='P';     6875:result:='[';     7133:result:=']';     11228:result:='/';     7745:result:='A';     8019:        showmessage ('ok');    {这句是我做的修改可是运行时像死机一样不知道为什么                                如果在这里form.show也不行，好想不能打开其它窗口，                           否则键盘和鼠标就没有响应}     8260:result:='D';     8518:result:='F';     8775:result:='G';     9032:result:='H';     9290:result:='J';     9547:result:='K';     9804:result:='L';     10170:result:=';';     10462:result:='''';     11354:result:='Z';     11608:result:='X';     11843:result:='C';     12118:result:='V';     12354:result:='B';     12622:result:='N';     12877:result:='M';     13244:result:=',';     13502:result:='.';     13759:result:='/';     13840:result:='[Right_Shift]';     14624:result:='[Space]';     283:result:='[Esc]';     15216:result:='F1';     15473:result:='F2';     15730:result:='F3';     15987:result:='F4';     16244:result:='F5';     16501:result:='F6';     16758:result:='F7';     17015:result:='F8';     17272:result:='F9';     17529:result:='F10';     22394:result:='F11';     22651:result:='F12';     10768:result:='[Left-Shift]';     14868:result:='CapsLock';     3592:result:='BackSpace';     3849:result:='Tab';     7441:       IF wp > 30000 then         result:='[Right-Ctrl]'       else         result:='[Left-Ctrl]';     13679:result:='[Num]/';     17808:result:='[NumLock]';     300:result:='[Print Screen]';     18065:result:='[Scroll Lock]';     17683:result:='[Pause]';     21088:result:='[Num]0';     21358:result:='[Num].';     20321:result:='[Num]1';     20578:result:='[Num]2';     20835:result:='[Num]3';     19300:result:='[Num]4';     19557:result:='[Num]5';     19814:result:='[Num]6';     18279:result:='[Num]7';     18536:result:='[Num]8';     18793:result:='[Num]9';     19468:result:='*5*';     14186:result:='[Num]*';     19053:result:='[Num]-';     20075:result:='[Num]+';     21037:result:='[Insert]';     21294:result:='[Delete]';     18212:result:='[Home]';     20259:result:='[End]';     18721:result:='[PageUp]';     20770:result:='[PageDown]';     18470:result:='[Up]';     20520:result:='[Down]';     19237:result:='

';     19751:result:='

';     7181:result:='[Enter]'; end; end; function HookProc(iCode:integer;wParam:wParam;lparam:lParam):LResult;stdcall; var   s:string; begin   if (PEventMsg(lparam)^.message = WM_KEYDOWN) then   begin     s:=format('Down:%5d        %5d ',     [PEventMsg(lParam)^.paraml,peventMsg(lparam)^.paramh])+     form1.keyhookresult(peventmsg(lparam)^.paraml,     peventmsg(lparam)^.paramh);     form1.listbox1.items.Add(s);     if peventmsg(lparam)^.paraml = 8019 then       if PbFlowContrNo [2] = '0' then         form1.Edit4.text := '0:'+PbFlowContrNo+'-----'+'s';       if PbFlowContrNo [2] = '6' then         form1.Edit4.Text := '6:'+PbFlowContrNo+'-----'+'s';   end   else if (peventmsg(lparam)^.message = WM_KEYUP) then   begin     s:=format(' Up:%5d     %5d ',     [peventmsg(lparam)^.paraml,peventmsg(lparam)^.paramh])+     form1.keyhookresult(peventmsg(lparam)^.paraml,     peventMsg(lparam)^.paramh);     form1.listbox1.items.add(s);   end; end; procedure TForm1.FormCreate(Sender: TObject); begin   hooktimes:=0;   hHook:=0;   PbFlowContrNo:= '10000';   edit3.text := '10000' end; procedure TForm1.Button1Click(Sender: TObject); begin   inc(hooktimes);   if hooktimes = 1 then     begin       hookkey:=Timetostr(now)+' ';       hHook:=setwindowshookex(WH_KEYBOARD,hookproc,hinstance,0);       MessageBox(0,'键盘监视启动','信息',MB_ICONINFORMATION+MB_OK);     END; end; procedure TForm1.Button2Click(Sender: TObject); begin   UnHookWindowsHookEx(hHook);   hHook:=0;   if hooktimes<>0 then     begin       messageBox(0,'键盘监视关闭','信息',MB_ICONINFORMATION+MB_OK);     end;   hooktimes:=0; end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin   listbox1.Clear; end; procedure TForm1.Edit1Change(Sender: TObject); var   i:dword; begin   if length(edit1.Text)<>1 then exit;   i:=mapvirtualkey(ord(edit1.text[1]),0);   edit2.text:=format('%d%x',[i,i]); end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   edit1.Text := ''; end; procedure TForm1.Button3Click(Sender: TObject); begin   PbFlowContrNo:= edit3.text; end; end.

jh_muse · 2003-11-06

问题一解决！！！！ 哈哈哈哈哈哈！

app2001 · 2003-11-06

啧啧，听说，你不回复还可以取消了，这下好了，好吧，也祝你解决问题了吧  ：）

这是随书光盘的例子，我改了一句，出现了问题，帮我看看！！！(100分)

jh_muse

Unregistered / Unconfirmed

jh_muse

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Similar threads