keybd_event 可以模拟输入一行字符串吗？

Question

倒如VB用
WshShell.SendKeys "123456789" 
这样就完成了总不能每一个字符都用
keybd_event($75, MapVirtualKey($75, 0 ), 0 , 0 );
keybd_event(VK_F6, MapVirtualKey(VK_F6,0), KEYEVENTF_KEYUP,0);
这样吧.....

Answer 1

把字符串放入剪贴板，然后keybd_event一个CTRL+C不就行了吗？

Answer 2

procedure TypeKeyString(s: string);
var
  c: Char;
  i: integer;
  off: integer;
  vkw: Word;
begin
  for i := 1 to Length(s) do
  begin
    c := s[i];
    if (c < #128) then
    begin
      vkw := VkKeyScan(c);
      off := 0;
      if vkw and $100 = $100 then
        keybd_event(VK_SHIFT, 0, off, 0);
      if vkw and $200 = $200 then
        keybd_event(VK_CONTROL, 0, off, 0);
      if vkw and $400 = $400 then
        keybd_event(VK_MENU, 0, off, 0);      off := 0;
      keybd_event(Byte(vkw), 0, off, 0);
      //sleep(20);
      off := off or KEYEVENTF_KEYUP;
      keybd_event(Byte(vkw), 0, off, 0);      off := off or KEYEVENTF_KEYUP;
      if vkw and $100 = $100 then
        keybd_event(VK_SHIFT, 0, off, 0);
      if vkw and $200 = $200 then
        keybd_event(VK_CONTROL, 0, off, 0);
      if vkw and $400 = $400 then
        keybd_event(VK_MENU, 0, off, 0);
    end;
  end;
end;

Answer 3

CSDN真讨厌。为什么要把对齐用的空格删除？

Answer 4

谢谢强哥
但还有一个问题就是。
setForegroundWindow(FindWindow(nil,'无标题 - 记事本'));
这不能对最少化或是隐藏窗体起作用。
如果这样的窗体应该怎么键入字符串呢？

Answer 5

SendMessage(FindWindow(nil,'无标题 - 记事本'),wm_syscommand,sc_RESTORE,0);
先后这个问题解决了。。

Answer 6

记事本？
var
  vHandle: THandle;
begin
  vHandle := FindWindow('Notepad', nil);
  if vHandle = 0 then Exit;
  vHandle := FindWindowEx(vHandle, 0, 'Edit', nil);
  if vHandle = 0 then Exit;
  SendMessage(vHandle, EM_REPLACESEL, 0, Longint(PChar('Zswang路过...')));
end;