• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

显示密码编辑框中的密码_Delphi

Delphi 搞代码 3年前 (2018-08-09) 286次浏览 已收录 0个评论

我们在使用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 );// 得到名字

http://www.gaodaima.com/?p=65819显示密码编辑框中的密码_Delphi

  其中,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显示出来。

欢迎大家阅读《显示密码编辑框中的密码_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址