string 如何转换为 byte ?

[doudou070801]

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的全部内容？

[ADSLAN]

1楼方法好

[pathletboy]

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;

[lwsxln]

1楼正解