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 文件分割合并

Delphi2010获取鼠标指向窗口的位置及鼠标在窗口内的相对位置坐标

Delphi 截取某个字符之前的字段

Delphi 动态库里查询是否联接数据库

Delphi版pspterminateprocess驱动源码

Delphi获得某个磁盘或是文件夹的所有子目录

Delphi xe5做一个android网页框架

Delphi 运行带参数的程序等待其并获取结果

Delphi 字符串反转函数

Delphi int64:是Delphi中最大的整数,64位有符号整数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...