Y
yu98041154
Unregistered / Unconfirmed
GUEST, unregistred user!
如题<br>目前的代码如下，但是没有实现将动作保存到文件中和从文件中读取并回放的步骤。<br>谢谢各位大侠...<br>----------------------------------------------------------------------------------<br><br>unit Unit1;<br>interface<br> uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; <br>type TForm1 = class(TForm)<br> Button1: TButton;<br> Button2: TButton;<br> Button3: TButton;<br> Edit1: TEdit;<br> Button4: TButton;<br> Memo1: TMemo;<br> procedure FormCreate(Sender: TObject);<br> procedure Button1Click(Sender: TObject);<br> procedure Button2Click(Sender: TObject);<br> procedure Button3Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end; <br> var<br> Form1: TForm1;<br> EventArr:array[0..1000]of EVENTMSG;<br> EventLog:Integer;<br> PlayLog:Integer;<br> hHook,hPlay:Integer;<br> recOK:Integer;<br> canPlay:Integer;<br> bDelay:Bool;<br> implementation<br> {$R *.DFM}<br> Function PlayProc (iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;<br> begin <br> canPlay:=1;<br> Result:=0;<br> if iCode < 0 then //必须将消息传递到消息链的下一个接受单元<br> Result := CallNextHookEx(hPlay,iCode,wParam,lParam)<br> else<br> if iCode = HC_SYSMODALON then canPlay:=0<br> else<br> if iCode = HC_SYSMODALOFF then canPlay:=1<br> else<br> if ((canPlay =1 )and(iCode=HC_GETNEXT)) then<br> begin <br> if bDelay then<br> begin <br> bDelay:=False;<br> Result:=50;<br> end;<br> pEventMSG(lParam)^:=EventArr[PlayLog];<br> end<br> else<br> if ((canPlay = 1)and(iCode = HC_SKIP))then<br> begin<br> bDelay := True;<br> PlayLog:=PlayLog+1;<br> end;<br> if PlayLog>=EventLog then<br> begin<br> UNHookWindowsHookEx(hPlay);<br> end;<br>end;<br> function HookProc (iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;<br> begin<br> recOK:=1;<br> Result:=0;<br> if iCode < 0 then<br> Result := CallNextHookEx(hHook,iCode,wParam,lParam)<br> else<br> if iCode = HC_SYSMODALON then<br> recOK:=0<br> else<br> if iCode = HC_SYSMODALOFF then<br> recOK:=1<br> else<br> if ((recOK>0) and (iCode = HC_ACTION)) then<br> begin<br> EventArr[EventLog]:=pEventMSG(lParam)^;<br><br> EventLog:=EventLog+1;<br> if EventLog>=1000 then<br> begin<br> UnHookWindowsHookEx(hHook);<br> end;<br> end;<br><br> end;<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> Button1.Caption:='纪录';<br> Button2.Caption:='停止';<br> Button3.Caption:='回放';<br> Button4.Caption:='范例';<br> Button2.Enabled:=False;<br> Button3.Enabled:=False;<br>end;<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>EventLog:=0; //建立键盘鼠标操作消息纪录链<br>hHook:=SetwindowsHookEx (WH_JOURNALRECORD,HookProc,HInstance,0);<br>Button2.Enabled:=True;<br>Button1.Enabled:=False;<br>end; <br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> UnHookWindowsHookEx(hHook); <br> hHook:=0;<br> Button1.Enabled:=True;<br> Button2.Enabled:=False;<br> Button3.Enabled:=True;<br>end;<br>procedure TForm1.Button3Click(Sender: TObject);<br>begin<br> PlayLog:=0; //建立键盘鼠标操作消息纪录回放链<br> hPlay:=SetwindowsHookEx(WH_JOURNALPLAYBACK,PlayProc, HInstance,0);<br> Button3.Enabled:=False;<br> end;<br> end.