delphi实现获取密码框中的密码


本文整理自网络,侵删。

 procedure Tmytools.Timer2Timer(Sender: TObject);
var
s: array[0..255] of char;
//i:integer;
n,h,c:integer;
p:Tpoint;
begin
getcursorpos(p); //得到当前光标的位置
h:=windowfrompoint(p); //当到光标处窗口的句柄
n:=getwindowlong(h,GWL_STYLE); //取窗口的属性
if (n and $20) <> 0 then//判断是否为密码框
begin
c:=sendmessage(h,EM_GETPASSWORDCHAR,0,0);//得到密码框当前的字符 如’*’等
//if c=42 then
//begin
postMessage(h,EM_SETPASSWORDCHAR,0,0);//设置密码框的字符为空,即去除密码框的密码属性,
//i:=sendmessage(h,WM_GETTEXTLENGTH,0,0); //取得密码串的长度
//inc(i);
//getmem(s,i);//分配内存
//sendmessage(h,WM_GETTEXT,i,integer(@s)); //获取密码字符串
sendMessage(h,$000D,WM_GETTEXT,integer(@s));//
edit11.text:=s;//将密码放入文本框中
//edit1.text:=GetPassword;
postMessage(h,EM_SETPASSWORDCHAR,c,0); //恢复原来的密码属性
//freemem(s); //释放内存
end;
end;

相关阅读 >>

Delphi tadodataset 加载数据到fdmemtable1

Delphi unigui日志的控制

Delphi 全局钩子锁定键盘

Delphi 简单方法搜索定位treeview项

Delphi 多关键词批量替换

Delphi异常重启自身

Delphi xe 中的字符串生成哈希值(md5 / sha-1 / jenkins)

Delphi复制文件时,如何显示进度条

Delphi �c 如何将多个文件扩展名传递给tdirectory.getfiles?

Delphi qr /条形码扫描仪应用示例代码(使用zxing,tframestand)

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



打赏

取消

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

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

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

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

评论

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