说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

显示密码编辑框中的密码-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
显示密码编辑框中的密码-Delphi资料

我们在使用Windows时,经常会碰到一些密码编辑框,输入其中的文字都以“*”

显示。现在,有许多共享软件和自由软件都可以实现隐藏密码的正确显示。究竟这是怎

样实现的呢!其实,这比较简单,虽然这些信息都以“*”显示,但其内部还是以当初

的字符表示,所以,我们只要用Windows API函数就可以实现。

在Windows中,每一个窗口、控件都有它的名字(叫做Name或Window Text)。对于

Form、Dialog Box、Message Box来说,名字就显示在Title Bar中;对于Edit、Button

、Static Control,名字显示在他所占的区域中。密码编辑框本身就是个Edit控件,虽

然显示的是特殊字符,但名字属性没有变,还是输入时的字符。Windows提供了两个API

函数来获得这个名字:

int GetWindowTextLength(HWND hWnd); // 得到名字的长度

其中,hWnd :想要得到的那个窗口或控件的句柄 handle

int GetWindowText(HWND hWnd

LPTSTR lpString

int nMaxCount );// 得到

名字

其中,hWnd :想要得到的那个窗口或控件的句柄 handle;

lpString:存放名字的字符串的地址

nMaxCount :可拷贝的最大字符数

下面以Delphi为例,说明它的实现过程。

新建一Form,放置Label、Edit、Button各一个到Form中,将Edit1的PasswordChar

属性改为“*”,双击Button1:

procedure TForm1.Button1Click(Sender: TObject);

var

Name:PChar; // 名字

L:integer; // 名字的长度

begin

L:=GetWindowTextLength(Edit1.handle)+1; // 得到名字长度,并将长度加1

GetMem(Name

L);//为将要得到的名字分配内存

GetWindowText(Edit1.handle

Name

L);//得到名字

label1.Caption:=String(Name); // 将得到的名字显示于 Label1

FreeMem(Name

0); // 释放分配的内存

end;

经过运行,在Edit1中输入的密码就可通过Label1显示出来。

强大的树型编程控件TeeTree1.01-Delphi资料 确定MEMO控件中的当前行和列-Delphi资料 让字体左、右对齐-Delphi资料 如何给TListBox加上水平的滚动条?-Delphi资料 如何快速选择一个组件的父亲-Delphi资料 如何用Delphi编写自己的可视化控件 如何用VB创建控件-Delphi资料 生成程序组和项-Delphi资料 实现超级链接-Delphi资料 实战Delphi数据网格色彩特效 使dbgrid的某几笔资料变色-Delphi资料 树形图(Treeview)的使用概述-Delphi资料 透明FORM-Delphi资料 为列表框添光彩-Delphi资料 限制FORM的大小-Delphi资料 用Delphi开发分隔线组件 用Delphi设计拨动、跳线开关组件 用Delphi 设 计 拨 动、 跳 线 开 关 组 件 用Delphi实现JPEG格式图像的显示 用Delphi制作动态有声标签 运行时生成控件-Delphi资料 在DBGRID中实现COPY、PASTE功能-Delphi资料 在Delphi程序的About窗口中建立URL连接 在Delphi中利用Tbatch组件完成数据批处理 在Delphi中巧改窗体文件实现控件数组化 在Delphi中实现不同风格的SPEED和BUTTON 在Delphi中实现类似VB中的控件数组。 在RichEdit中的串查找-Delphi资料 在按钮中快速启动程序-Delphi资料 怎样读出MEMO控件的当前值-Delphi资料 怎样使用Delphi 5中的TExcelApplication操纵Excel 97/2000 我这是怎么了? 非常着急,关于bean的问题 在单元格中插入html? 关于两个大表连接和索引的问题 灌水、抢分 echo命令的具体使用方法? 在BIOS密码之后,系统引导之前加密计算机的软件有哪些?请帮忙呀 请问 如何获得mysql的原码 关于onload VB中如何使用资源文件?急!急!急! 关于思路,高分求教!分数不够在添 不得不提问了: 怎样防止用户重复登陆!???? **请问Kylix3在红帽7上如何安装? TEST 求php的win98下开发环境,大家帮帮忙。 我想做一个类似于邮件系统中附件功能的程序,请问用的是什么协议,那里有源码? 为什么输出结果不正确呢??? 急救!用ADO在98下与2K下不能同时运行! 主板的认识! 如何删除相同的两条记录 有关Blob造型成oracle.sql.BLOB的问题。 急死我了!!!RS485通讯的奇怪问题,请高手帮忙! 怎样在delete记录时不往log文件中写东西? 签名支持JK10000行动,同意签名者,进来跟贴!到时候咱们的真名或ID会被复印在传单背面,抵制日货,保卫钓鱼岛!!!!!!!!!!!! 迷惑!!!!!高手指点,值得讨论,谢谢! char型怎么转换成String型?(答对结帖) 请问 哪位大侠有loadrunner的中文测试资料提供一下,非常感谢! JS和ASP的问题????? 高手指点 这样划分vlan可不可以???? 数据库超时 VB+SQl 2000 如何实现在程序运行时加减代码? 各位高手给我个提示有关手动添加消息映射的 关于EjbOBJECT和EJBLOCALOBJECT在使用上的区别?? 寻找中俄文转换的工具软件!急! 请问怎么把CLASS程序打包成JAR程序? 如何在VC中嵌入对Access表tableApp中纪录个数的统计(在线等)? 学习java到底有没有前途?? 关于ie6和ie5下使用javascript的问题??? 自定义函数返回值的问题 小问题:如何在VC中嵌入对Access表tableApp中纪录个数的统计(在线等)? 怎么没人理我啊?我好可怜!linux下线程池谁知道怎样实现,在哪里可以找到资料? 请教高手:如何把 Office Word 中的字(包括字体、字色、字类型等)复制到 java 中。急!在线... 挂双硬盘在CMOS中怎么设置? 沾边就给分,请问各位前辈,我想画一个框,并据一定的条件使它以两种颜色交替显示,退出时将其释放 不能用右键来另存图片 关于J2EE问题? 有没有这么一个函数:将一个double型变量按科学计数法的格式显示出来 升级的问题 难!请教关于随机分段计算并判断的问题。 请教:QT库怎么配?怎么看装没装上?里面都有什么? 英国政府军事干预叙利亚动议遭议会否决日媒指日本各电视台无礼行为或致东京申西兰花或助预防关节炎奥巴马将向美国会通报对叙行动方案 寻人类生命,火星孕育?记忆力衰退可能“扭转”日全渔联抗议东电 自民党称影响申奥美猫咪爆红网络 22厘米长毛打破世界全球最奢华宠物:狗狗做瑜伽鸭子穿时装俄副外长:俄正尽一切努力阻止对叙军事安倍称叙政府使用化武可能性高 要求叙美国斥巨资搜集情报被指无关键信息 且科学家称地球生命源于火星 搭乘石头来美国科学家称首次实现两个人脑之间远程媒体称日本质疑潘基文发言 固守错误历美国最快30日对叙动武 被指师出难有首都机场爆炸案嫌犯冀中星被提起公诉 科学家培养出“迷你人脑” 可用于疾病调查称近六成韩国女性认为婚前性行为有检方:冀中星未故意引爆炸弹 倒手炸弹日本未成年少女卖淫问题严重 成黑社会真神!诺伊尔3神扑化身八爪鱼 没他德专家:中国高铁出海非求人办事 美方毁全国各地PPP招商项目7721个 总商业银行不良贷款率连续数季度上升 企欧洲杯-小猪+铁卫建功诺伊尔神扑 德永川楼市端午节火爆 凤凰湖片区房价螺15个家庭PK包粽子,抽签选食材喂动消防志愿者走进卧龙凼,宣传安全知识全媒体悲剧!永川10岁双胞胎姐妹水塘游泳溺看欧洲杯,重庆晨报·上游新闻让你嗨起看欧洲杯,重庆晨报·上游新闻让你嗨起小导演执导大明星 大明星扶持小导演重庆中考试题展现重庆自信7天蜕变! “活力少年”让孩子挑战自五间西瓜节开幕 今年西瓜更大更甜诺丁汉大学最年轻博导是个重庆崽儿志愿者手把手教26名留守儿童包粽子石龙山摩崖石刻群是永川的文化名片这个端午,他们在一片欢乐中度过……预防“地贫”关键在婚前和孕前检查
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘