keybd_event模拟键盘输入密码

Author：傻猫
发布时间：January 23, 2011
8811views
No comments
571 words
Categories：搞软件

function TFrm_main.InputChar(str: string): Boolean;
var
i     : integer;
c     : byte;
begin
      for i := 1 to Length(str) do
      begin
       c := VkKeyScan(str[i]) and 255;                //输入文字
       keybd_event(c,0,0,0);
       keybd_event(c,0,KEYEVENTF_KEYUP,0);
      end;
end;