string 如何转换为 byte ?

Question

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

Answer 1

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;