显示密码编辑框中的密码

大师
1999年 第25期 13版

　　我们在使用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显示出来。 


 