string 如何转换为 byte ?

doudou070801 2011-10-06 10:50:11
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);

以上功能可以模拟键盘按下并抬起 V 字符!

如果想循环执行一串字符串该如何操作?

例如
var
s:string;

s:= '1234';

如何利用开头代码循环模拟按下字符串S的全部内容?
...全文
124 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lwsxln 2011-10-08
  • 打赏
  • 举报
回复
1楼正解
pathletboy 2011-10-06
  • 打赏
  • 举报
回复
var
i: Integer;

for i := 1 to Length(s) do
begin
keybd_event(ord(s[i]), MapVirtualKey(ord(s[i]), 0), 0, 0);
keybd_event(ord(s[i]), MapVirtualKey(ord(s[i]), 0), KEYEVENTF_KEYUP, 0);
end;
ADSLAN 2011-10-06
  • 打赏
  • 举报
回复
1楼方法好

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧