高手来看看hook的问题：我用内存流保存hook 怎么键盘输入的会没有？错在那里了(100分)

myqq · 2004-01-17

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Button4: TButton;     ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; eventdata:Tmemorystream; EventArr:array[0..1000]of EVENTMSG; Event:EVENTMSG; EventLog:Integer; PlayLog:Integer; hHook,hPlay:Integer; recOK:Integer; canPlay:Integer; bDelay:Bool; implementation {$R *.DFM} Function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin canPlay:=1; Result:=0; if iCode < 0 then //±&Oslash;&ETH;&euml;&frac12;&laquo;&Iuml;&ucirc;&Iuml;&cent;&acute;&laquo;&micro;&Yacute;&micro;&frac12;&Iuml;&ucirc;&Iuml;&cent;&Aacute;&acute;&micro;&Auml;&Iuml;&Acirc;&Ograve;&raquo;&cedil;&ouml;&frac12;&Oacute;&Ecirc;&Uuml;&micro;&yen;&Ocirc;&ordf; Result := CallNextHookEx(hPlay,iCode,wParam,lParam) else if iCode = HC_SYSMODALON then canPlay:=0 else if iCode = HC_SYSMODALOFF then canPlay:=1 else if ((canPlay =1 )and(iCode=HC_GETNEXT)) then begin if bDelay then begin bDelay:=False; Result:=50; end; Eventdata.read(Event,sizeof(Event)); pEventMSG(lParam)^:=Event; //pEventMSG(lParam)^:=EventArr[PlayLog]; end else if ((canPlay = 1)and(iCode = HC_SKIP))then begin bDelay := True; PlayLog:=PlayLog+1; end; //if PlayLog>=EventLog then begin if eventdata.Position>eventdata.size-1 then begin UNHookWindowsHookEx(hPlay); end; end; function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin recOK:=1; Result:=0; if iCode < 0 then Result := CallNextHookEx(hHook,iCode,wParam,lParam) else if iCode = HC_SYSMODALON then recOK:=0 else if iCode = HC_SYSMODALOFF then recOK:=1 else if ((recOK>0) and (iCode = HC_ACTION)) then begin EventArr[EventLog]:=pEventMSG(lParam)^; Event:=EventArr[EventLog]; form1.caption:=inttostr(sizeof(Event)); Eventdata.write(Event,sizeof(Event)); EventLog:=EventLog+1; if EventLog>=1000 then begin UnHookWindowsHookEx(hHook); end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin eventdata:=Tmemorystream.create; Button1.Caption:='&frac14;&Iacute;&Acirc;&frac14;'; Button2.Caption:='&Iacute;&pound;&Ouml;&sup1;'; Button3.Caption:='&raquo;&Oslash;·&Aring;'; Button4.Caption:='±&pound;&acute;&aelig;'; Button2.Enabled:=False; Button3.Enabled:=False; end; procedure TForm1.Button1Click(Sender: TObject); begin EventLog:=0; eventdata.Clear; eventdata.Seek(0,soFromBeginning); //&frac12;¨&Aacute;&cent;&frac14;ü&Aring;&Igrave;&Ecirc;ó±ê&sup2;&Ugrave;×÷&Iuml;&ucirc;&Iuml;&cent;&frac14;&Iacute;&Acirc;&frac14;&Aacute;&acute; hHook:=SetwindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0); //eventdata.write('End',20); Button2.Enabled:=True; Button1.Enabled:=False; end; procedure TForm1.Button2Click(Sender: TObject); begin UnHookWindowsHookEx(hHook); hHook:=0; Button1.Enabled:=True; Button2.Enabled:=False; Button3.Enabled:=True; end; procedure TForm1.Button3Click(Sender: TObject); begin PlayLog:=0; eventdata.Seek(0,soFromBeginning); //&frac12;¨&Aacute;&cent;&frac14;ü&Aring;&Igrave;&Ecirc;ó±ê&sup2;&Ugrave;×÷&Iuml;&ucirc;&Iuml;&cent;&frac14;&Iacute;&Acirc;&frac14;&raquo;&Oslash;·&Aring;&Aacute;&acute; hPlay:=SetwindowsHookEx(WH_JOURNALPLAYBACK,PlayProc, HInstance,0); //Button3.Enabled:=False; end; procedure TForm1.Button4Click(Sender: TObject); begin eventdata.SaveToFile('c:/data.1'); //EventArr[PlayLog]; end; end.

高手来看看hook的问题：我用内存流保存hook 怎么键盘输入的会没有？错在那里了(100分)

myqq

Unregistered / Unconfirmed

Similar threads