Delphi中的SendKeys函数

用过Visual Basic等编程语言的朋友们一定对其SendKeys函数非常熟悉。利用该函数可以把一个字符串发送到目标窗口（比如记事本）或控件（比如一个Edit控件）中，就好像是在目标窗口或控件中输入这个字符串一样。但是，在Delphi中却没有为我们提供这样的函数。其实，Borland的工程师们早就提供了一个方便的方法：在Delphi5.0企业版的安装盘的infoExtrasSendKeys文件夹中，有一个sndKey32.Pas文件，
源代码网推荐 只需把该文件复制到Delphi的安装目录下Lib文件夹中，在工程中引用该文件后即可使用SendKeys函数.
源代码网推荐 其中两个主要的函数为:
源代码网推荐 SendKeys(KeyString:Pchar;Wait:Boolean):Boolean;
源代码网推荐 AppActivate(WindowName：Pchar):Boolean;
源代码网推荐 用法为：
源代码网推荐 SendKeys函数向当前拥有焦点的窗口或控件发送字符串，KeySering为字符串的内容。
源代码网推荐 Wait指示是否等待接收字符串的窗口或控件处理完毕后返回。一般设为False即可。
源代码网推荐 例如：SendKeys("abcdefg",false);
源代码网推荐 值得一提的是，SendKeys函数支持发送特殊字符和组合字符，例如方向键、Alt、Ctrl组合键。
源代码网推荐 使用时，只需用规定的前缀指明即可。＋为Shift，^为Ctrl,%为Alt。
源代码网推荐 例如：
源代码网推荐 " monday " 意为发送Shift m和onday

源代码网推荐 " (monday)"意为发送Shift monday
源代码网推荐 对于不可见字符（比如方向键、F1~F11、回车等）,可用｛｝将其括起来。
源代码网推荐 例如：
源代码网推荐 "%{F4}"即发送Alt F4的组合送给应用程序。
源代码网推荐 更详尽的说明请参照SndKey32.pas文件中的注释。
源代码网推荐 AppActivate函数的作用是将某个窗口设置为当前窗口。只需将该窗口的标题传过去即可。
源代码网推荐 若成功将某个窗口激活,则返回值为True.
源代码网推荐
源代码网推荐 例子:点击发送后，上面的Edit控件的内容会被发送到下面的Edit控件里面去。
源代码网推荐 程序很简单，只要两个Edit控件和一个Button控件。
源代码网推荐 源程序如下：
源代码网推荐 unit sendkey1;
源代码网推荐 interface
源代码网推荐 uses
源代码网推荐 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
源代码网推荐 Dialogs,sndkey32, StdCtrls; //注意该行要添加sndker32!!
源代码网推荐 type
源代码网推荐 TForm1 = class(TForm)
源代码网推荐 Edit1: TEdit;
源代码网推荐 Edit2: TEdit;
源代码网推荐 Button1: TButton;
源代码网推荐 procedure Button1Click(Sender: TObject);
源代码网推荐 private
源代码网推荐 { Private declarations }
源代码网推荐 public
源代码网推荐 { Public declarations }
源代码网推荐 end;
源代码网推荐 var
源代码网推荐 Form1: TForm1;
源代码网推荐
源代码网推荐 implementation
源代码网推荐 ｛$R *.dfm}
源代码网推荐 procedure TForm1.Button1Click(Sender: TObject);
源代码网推荐 begin
源代码网推荐 Edit2.SetFocus; //将焦点置于Edit2
源代码网推荐 SendKeys(Pchar(Edit1.Text),False); //将Edit1中的字符串发送给Edit2
源代码网推荐 //事先需进行转换
源代码网推荐 end;
源代码网推荐
源代码网推荐 end.
源代码网推荐
源代码网推荐 很简单，是不是？其实不仅Edit控件，像Memo、RichEdit等空件均可接收发送的字符。
源代码网推荐
源代码网推荐
源代码网推荐 上面的例子只是在本应用程序内传递字符串，
源代码网推荐 下面的例子是将字符串发送给Microsoft Word。其所用控件与上例相差不大。
源代码网推荐 源程序为：
源代码网推荐 unit unit1;
源代码网推荐 interface
源代码网推荐 uses
源代码网推荐 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs
源代码网推荐 ,sndkey32, StdCtrls; //不要忘了sndKey32!
源代码网推荐 type
源代码网推荐 TForm1 = class(TForm)
源代码网推荐 Button1: TButton;
源代码网推荐 Edit1: TEdit;
源代码网推荐 Button2: TButton;
源代码网推荐 procedure Button1Click(Sender: TObject);
源代码网推荐 procedure Button2Click(Sender: TObject);
源代码网推荐 private
源代码网推荐 { Private declarations }
源代码网推荐 public
源代码网推荐 { Public declarations }
源代码网推荐 end;
源代码网推荐 var
源代码网推荐 Form1: TForm1;
源代码网推荐 implementation
源代码网推荐
源代码网推荐 {$R *.DFM}
源代码网推荐 ｛ 该函数将焦点置于Word,若失败，返回False｝
源代码网推荐 function SetFocusToWord:boolean;
源代码网推荐 var
源代码网推荐 f:boolean;
源代码网推荐 begin
源代码网推荐 f:=true;
源代码网推荐 if not AppActivate("文档 1 - Microsoft Word") then
源代码网推荐 {
源代码网推荐 字符串内容为：文档空格1空格-空格Microsoft空格Word
源代码网推荐 }
源代码网推荐 begin
源代码网推荐 f:=False;
源代码网推荐 MessageDlg("没找到Word!",mtError,[mbOk],0); //显示错误
源代码网推荐 exit;
源代码网推荐 end;
源代码网推荐 result:=f;
源代码网推荐 end;
源代码网推荐 procedure SetFormActive; //该子程序将焦点置回
源代码网推荐 begin
源代码网推荐 Appactivate("SendToWord");
源代码网推荐 form1.SetFocus;
源代码网推荐 form1.Edit1.SetFocus;
源代码网推荐 end;
源代码网推荐 procedure TForm1.Button1Click(Sender: TObject);
源代码网推荐 begin
源代码网推荐 if not SetFocusToWord then exit; //没找到Word，退出
源代码网推荐 sendkeys(Pchar(form1.edit1.text),false); //找到了，发送字符串
源代码网推荐 SetFormActive;
源代码网推荐 end;
源代码网推荐
源代码网推荐 procedure TForm1.Button2Click(Sender: TObject);
源代码网推荐 begin
源代码网推荐 if not SetFocusToWord then exit; //没找到Word，退出
源代码网推荐 sendkeys("%{F4}",false); //发送Alt F4,关闭Word

源代码网推荐 SetFormActive;
源代码网推荐 end;
源代码网推荐 end.
源代码网推荐 该例子只是简单演示一下，实际上大家可以改动激活word的部分（本文查找"文档 1 - Microsoft Word"来实现，
源代码网推荐 显得有些太简单了。）
源代码网推荐 Delphi本身也带有与Office协作的一系列控件，但只进行简单的协作，这样不是更简单么？
源代码网推荐 SendKeys函数的功能很强大，不然Borland也不会在安装盘中提供这个文件。更好的利
源代码网推荐 SendKeys的设想，就要看各位朋友的了！