unitfrmmain.pas

《Delphi7编程100例》代码,书配资料

unit unitFrmMain;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    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;
  EventArr: array[0..1000] of EVENTMSG; //用于保存消息的数组
  EventLog: Integer;
  PlayLog: Integer;
  hHook, hPlay: Integer;
  recOK: Integer;
  canPlay: Integer;
  bDelay: Bool;

implementation

{$R *.DFM}

// PlayProc是消息回放函数，当系统可以执行消息回放
//时调用该函数，程序就将先前记录的消息值返回到lParam指向的区域中，
//系统就会执行该消息，从而实现了消息回放。

function PlayProc(iCode: Integer; wParam: wParam; lParam: lParam): LRESULT; stdcall;
begin
  canPlay := 1;
  Result := 0;

  if iCode < 0 then //必须将消息传递到消息链的下一个接收单元
    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;
    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
    UNHookWindowsHookEx(hPlay);
  end;
end;
//HookProc是记录操作的消息函数，每当有鼠标键盘消息发生时，系统都会调用该函数，消息信
//息就保存在地址lParam中，我们可以把消息保存在一个数组中。

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)^;
    EventLog := EventLog + 1;
    if EventLog >= 1000 then begin
      UnHookWindowsHookEx(hHook);
    end;
  end;
end;

//点击记录按钮开始录像操作

procedure TForm1.Button1Click(Sender: TObject);
begin
  EventLog := 0;
  //建立键盘鼠标操作消息纪录链
  hHook := SetwindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);
  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;
  //建立键盘鼠标操作消息纪录回放链
  hPlay := SetwindowsHookEx(WH_JOURNALPLAYBACK, PlayProc,
    HInstance, 0);
  Button3.Enabled := False;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ShowMessage('it''s recording');
end;

end.