delphi 模似键盘输入又一方法

本文整理自网络，侵删。

 //获取窗口句柄
EnumChildWindows(Hwindow,@LoginEnumWindowsProc,LongInt(self)); 

for i:=0 to chklst_Uid.Count-1 do
begin
if chklst_Uid.Checked[i] then
begin
SplitString(Trim(chklst_Uid.Items.Strings[i]),'-',a,b);
UidLogin:=Trim(a);
UidPassword:=Trim(b);
SendMessage(HLoginNum, WM_SETTEXT, 180, Integer(PChar(UidLogin)));
for j:=1 to 6 do
begin
mychar:=MidStr(UidPassword,j,1);
SendMessage(Hpass,WM_CHAR,Ord(mychar[1]),0);
end;

chklst_Uid.Checked[i]:=False;
lbl_LoginUid.Caption:=UidPassword;
Break;
end;
end;

文章来源于《傻猫网络日志》 http://www.samool.com/archives/11128/ 

相关阅读 >>

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi fmx检测屏幕旋转

Delphi在memo按键实现全选

关于Delphi xe5 firemonkey 手机屏幕自适应程序问题

Delphixe8中获取apk的签名信息

Delphi 检测是否包含字符

Delphi里参数修饰符const、var、out的作用分别是什么?

Delphi使用迅雷的开放下载引擎下载

Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？

Delphi 二进制值转换十六进制 bintohex和hextobin

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 模似键盘输入又一方法