本文整理自网络，侵删。
//获取窗口句柄
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 unicode转汉字 ，支持自动过滤非 unicode编码
Delphi 用tidsmip和tidmessage发送邮件
更多相关阅读请进入《Delphi》频道 >>
