unit1.pas

可以预先设定好按键码序列 然后定义到F1-F12就可以了 按F1-F12就可以向当前窗口发送预先定义的按键了 第一次上传 哈哈 附带 源代码！

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Timer1: TTimer;
    Panel1: TPanel;
    mem1: TMemo;
    Label1: TLabel;
    Procedure OnMyMessage(var Msg:TMsg;var Handled:Boolean);
    procedure Button1Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
function EnableHotKeyHook:BOOL;external 'Project1.dll';
function DisableHotKeyHook:BOOL;external 'Project1.dll';


implementation

{$R *.dfm}
function dianji(i:integer):boolean;
begin
case i of
112: form1.Button1.Click;
113: form1.Button2.Click;
114: form1.Button3.Click;
115: form1.Button4.Click;
116: form1.Button5.Click;
117: form1.Button6.Click;
118: form1.Button7.Click;
119: form1.Button8.Click;
120: form1.Button9.Click;
121: form1.Button10.Click;
122: form1.Button11.Click;
123: form1.Button12.Click;
end;
end;
Procedure tform1.OnMyMessage(var Msg:TMsg;var Handled:Boolean);
begin
if msg.message=4132 then
begin
panel1.Caption:=inttostr(msg.wParam);
  if msg.wParam>111 then
  begin
    if msg.wParam <124 then dianji(msg.wParam );
  end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit1.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
timer1.Enabled:=true;
EnableHotKeyHook;
label1.Caption :='开启 ';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
timer1.Enabled:=false;
DisableHotKeyHook;
label1.Caption :='停止 ';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if pos('35',form1.Caption)<>0 then
begin
form1.Caption:='aa';
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage :=OnMyMessage;
try
mem1.Lines.LoadFromFile('ini.txt');
except;
end;
edit1.Text :=mem1.Lines.Strings[0];
edit2.Text :=mem1.Lines.Strings[1];
edit3.Text :=mem1.Lines.Strings[2];
edit4.Text :=mem1.Lines.Strings[3];
edit5.Text :=mem1.Lines.Strings[4];
edit6.Text :=mem1.Lines.Strings[5];
edit7.Text :=mem1.Lines.Strings[6];
edit8.Text :=mem1.Lines.Strings[7];
edit9.Text :=mem1.Lines.Strings[8];
edit10.Text :=mem1.Lines.Strings[9];
edit11.Text :=mem1.Lines.Strings[10];
edit12.Text :=mem1.Lines.Strings[11];
end;

procedure TForm1.Button2Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit2.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit3.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit4.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit5.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit6.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit7.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button8Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit8.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button9Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit9.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button10Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit10.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button11Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit11.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;

procedure TForm1.Button12Click(Sender: TObject);
var len,i:integer;
s1:char;
str,str2:string;
begin
s1:='a';
str:=edit12.Text ;
len:=length(str);
for i:=1 to len do
begin
str2:=copy(str,i,1);
s1:=str2[1];
keybd_event(VkKeyScan(s1),MapVirtualKey(VkKeyScan(s1),0),KEYEVENTF_EXTENDEDKEY,0);
end;
end;





procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
mem1.Clear;
mem1.Lines.Add(edit1.Text);
mem1.Lines.Add(edit2.Text);
mem1.Lines.Add(edit3.Text);
mem1.Lines.Add(edit4.Text);
mem1.Lines.Add(edit5.Text);
mem1.Lines.Add(edit6.Text);
mem1.Lines.Add(edit7.Text);
mem1.Lines.Add(edit8.Text);
mem1.Lines.Add(edit9.Text);
mem1.Lines.Add(edit10.Text);
mem1.Lines.Add(edit11.Text);
mem1.Lines.Add(edit12.Text);
try
mem1.Lines.SaveToFile('ini.txt');
except;
end;
end;

end.