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+mysql:tadoquery使用插入中文乱码解决方法

Delphi 不管什么日期格式转换都不会错了

Delphi dateutils功能详解

Delphi 从 twebbrowser中获得当前输入处的链接

Delphi 在windows右键菜单中加上关联

怀念一下这些经常不记得的Delphi代码

Delphi 自动复制到指定目录的代码

Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)

Delphi xe8 中tidtcpclient的writeln编码变化

Delphi xe10 给程序添加uac权限

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



打赏

取消

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

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

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

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

评论

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