unit1.pas

DELPHI局部键盘模拟的源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    hw: THandle;
    Phwnd: THandle;
  end;

const
  VK_1 = $31;
  VK_2 = $32;
  VK_3 = $33;
  VK_4 = $34;
var
  Form1: TForm1;

implementation

{$R *.dfm}

Function MakeKeyLparam(VirtualKey:integer; flag:integer):integer;
var
  s: String;
  Firstbyte: String;
  Scancode: integer;
  Secondbyte: String;
begin
  If flag = WM_KEYDOWN Then begin
    Firstbyte := '00';
    end
  else begin
    Firstbyte := 'C0';
  End;
  Scancode := MapVirtualKey(VirtualKey, 0);
  Secondbyte := RightStr('00' + IntToHex(Scancode,2), 2);
  s := Firstbyte + Secondbyte + '0001';
  Result := StrToInt('$' + s);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  hw := FindWindow('NOTEPAD', nil);
  Phwnd := FindWindowEx(hw, 0, 'Edit', nil);
  if Phwnd <> 0 then begin
    Timer1.Enabled := True;
    Button1.Enabled := False;
    Button2.Enabled := True;
    end
  else begin
    Messagebox(handle, '   记事本没打开   ', '提示', MB_OK)
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := False;
  Button1.Enabled := True;
  Button2.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  PostMessage(Phwnd, WM_KEYDOWN, VK_1, MakeKeyLparam(VK_1, WM_KEYDOWN));
  PostMessage(Phwnd, WM_KEYUP, VK_1, MakeKeyLparam(VK_1, WM_KEYUP));
  PostMessage(Phwnd, WM_KEYDOWN, VK_2, MakeKeyLparam(VK_2, WM_KEYDOWN));
  PostMessage(Phwnd, WM_KEYUP, VK_2, MakeKeyLparam(VK_2, WM_KEYUP));
  PostMessage(Phwnd, WM_KEYDOWN, VK_3, MakeKeyLparam(VK_3, WM_KEYDOWN));
  PostMessage(Phwnd, WM_KEYUP, VK_3, MakeKeyLparam(VK_3, WM_KEYUP));
  PostMessage(Phwnd, WM_KEYDOWN, VK_4, MakeKeyLparam(VK_4, WM_KEYDOWN));
  PostMessage(Phwnd, WM_KEYUP, VK_4, MakeKeyLparam(VK_4, WM_KEYUP));
end;

end.