模拟键盘输入(keybd_event的使用)！！！看者有分！！！ 再加50分！100啦！ ( 积分: 50 )

我想做个系列号输入工具，不知道怎么模拟键盘输入，代码：<br>procedure TForm1.hotkey(var msg: tmessage);<br>var<br> &nbsp;i: integer;<br> &nbsp;myclip: TClipboard; //剪贴板类<br> &nbsp;mykey: string;<br> &nbsp;temp: string;<br>begin<br> &nbsp;myclip := TClipboard.Create; //创建剪贴板类实例<br> &nbsp; &nbsp;if myclip.HasFormat(cf_text) then //如果剪贴板中内容是文本<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;mykey := myclip.AsText; //把文本内容付给mykey<br> &nbsp; &nbsp; &nbsp;if mykey &lt;&gt; '' then //当剪贴板内容不为空，循环<br> &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp;for i := 1 to length(mykey) do<br> &nbsp; &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;temp := copy(mykey, i, 1); //获得第i个字符给temp<br> &nbsp; &nbsp; &nbsp;if temp = '-' then<br> &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp;keybd_event(9,0,0,0);<br> &nbsp; &nbsp; &nbsp; &nbsp;keybd_event(9,0,KEYEVENTF_KEYUP,0); //当是'－'时按下TAB键<br> &nbsp; &nbsp; &nbsp; &nbsp;end<br> &nbsp; &nbsp; &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; keybd_event(****, 0, 0, 0);<br> &nbsp; &nbsp; &nbsp; &nbsp;keybd_event(****, 0,keyeventf_keyup, 0);<br> &nbsp; &nbsp; &nbsp; end;<br> &nbsp; &nbsp;end;<br> &nbsp; &nbsp; end;<br> &nbsp; &nbsp;myclip.Free;<br> &nbsp;end;<br>end;<br>星号那个地方不知道怎么输入？temp怎么转成虚拟键码？<br>50分，帮帮忙！!

我想做个系列号输入工具，不知道怎么模拟键盘输入，代码：<br>procedure TForm1.hotkey(var msg: tmessage);<br>var<br> &nbsp;i: integer;<br> &nbsp;myclip: TClipboard; //剪贴板类<br> &nbsp;mykey: string;<br> &nbsp;temp: string;<br>begin<br> &nbsp;myclip := TClipboard.Create; //创建剪贴板类实例<br> &nbsp; &nbsp;if myclip.HasFormat(cf_text) then //如果剪贴板中内容是文本<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;mykey := myclip.AsText; //把文本内容付给mykey<br> &nbsp; &nbsp; &nbsp;if mykey &lt;&gt; '' then //当剪贴板内容不为空，循环<br> &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp;for i := 1 to length(mykey) do<br> &nbsp; &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;temp := copy(mykey, i, 1); //获得第i个字符给temp<br> &nbsp; &nbsp; &nbsp;if temp = '-' then<br> &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp;keybd_event(9,0,0,0);<br> &nbsp; &nbsp; &nbsp; &nbsp;keybd_event(9,0,KEYEVENTF_KEYUP,0); //当是'－'时按下TAB键<br> &nbsp; &nbsp; &nbsp; &nbsp;end<br> &nbsp; &nbsp; &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; keybd_event(****, 0, 0, 0);<br> &nbsp; &nbsp; &nbsp; &nbsp;keybd_event(****, 0,keyeventf_keyup, 0);<br> &nbsp; &nbsp; &nbsp; end;<br> &nbsp; &nbsp;end;<br> &nbsp; &nbsp; end;<br> &nbsp; &nbsp;myclip.Free;<br> &nbsp;end;<br>end;<br>星号那个地方不知道怎么输入？temp怎么转成虚拟键码？<br>50分，帮帮忙！!

看keybd_event的帮助，找到虚拟键码的规律，查表或循环。

我看过别人写的，他在星号那里这样写：ord(upcase(temp)),他是用数组，我这样写<br>ord(upcase(temp))就出现类型不匹配的错误，我仔细看了，才知道当temp是char类型就成功ord(upcase('a'))，但是我的temp是string，怎么把string转成char？函数pchar(temp)或者char(temp)都换不了！<br>查表或循环!可以说清楚点吗？两个相同的问题150分哦！帮帮忙！！

看不懂，有分吗？

有！1分！呵呵！

靠天靠地，还不如靠自己！<br>unit Unit1;<br><br>interface<br><br>uses<br> &nbsp;Windows, Messages, SysUtils, Classes, Forms, Clipbrd; //加入clipbrd剪贴板<br><br>type<br> &nbsp;TForm1 = class(TForm)<br> &nbsp; &nbsp;procedure FormCreate(Sender: TObject);<br> &nbsp;private<br> &nbsp; &nbsp;aatom: integer;<br> &nbsp; &nbsp;procedure hotkey(var msg: Tmessage); message wm_hotkey; //捕获热键消息<br> &nbsp; &nbsp;{ Private declarations }<br> &nbsp;public<br> &nbsp; &nbsp;{ Public declarations }<br> &nbsp;end;<br><br>var<br> &nbsp;Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> &nbsp;aatom := globaladdatom('hot key'); //添加全局原子<br> &nbsp;RegisterHotKey(handle, aatom, 0, VK_F10); //注册热键F10<br>end;<br><br>procedure TForm1.hotkey(var msg: Tmessage);<br>var<br> &nbsp;myclip: tclipboard; //剪贴板类<br> &nbsp;mykey: string; //用来存放剪贴板的内容<br> &nbsp;i: integer;<br>begin<br>//***********************************************获取剪贴板的内容<br> &nbsp;myclip := tclipboard.Create; //建立剪贴板实例<br> &nbsp;if myclip.HasFormat(cf_text) then //检查剪贴板内容是否为文本，不是则退出<br> &nbsp; &nbsp;if myclip.AsText &lt;&gt; '' then //如果内容不为空，则把内容放到mykey变量中<br> &nbsp; &nbsp; &nbsp;mykey := myclip.AsText<br> &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp;exit<br> &nbsp;else<br> &nbsp; &nbsp;exit;<br>//***********************************************获取剪贴板的内容<br> &nbsp;for i := 1 to length(mykey) do //获取文本的长度作为循环的次数<br> &nbsp;begin<br> &nbsp; &nbsp;if mykey = '-' then<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;keybd_event($9, 0, 0, 0); //如果内容中碰到'-'则输入TAB键(TAB的虚拟键值是$9)，进入下个输入框<br> &nbsp; &nbsp; &nbsp;keybd_event($9, 0, KEYEVENTF_KEYUP, 0);<br> &nbsp; &nbsp;end<br> &nbsp; &nbsp;else<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;keybd_event(ord(upcase(mykey)), 0, 0, 0);<br> &nbsp; &nbsp; &nbsp;keybd_event(ord(upcase(mykey)), 0, KEYEVENTF_KEYUP, 0);<br> &nbsp; &nbsp; &nbsp;//输入剪贴板的内容到输入框<br> &nbsp; &nbsp; &nbsp;// keybd_event(ord(upcase(mykey)), 0, 0, 0)虚拟按下键盘<br> &nbsp; &nbsp; &nbsp;// keybd_event(ord(upcase(mykey)), 0, KEYEVENTF_KEYUP, 0)虚拟抬起<br> &nbsp; &nbsp; &nbsp;//因为我们按键的时候是按下，然后抬起，所以要对应<br> &nbsp; &nbsp;end;<br> &nbsp;end;<br>end;<br>end.