delphi 编程技巧

				显示密码编辑框中的密码 (2001年1月8日) 
				
				网友更新  分类:数据库   作者: nbwzw(推荐)  推荐:nbwzw   阅读次数:553  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				
				　　我们在使用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显示出来 
				 
				 
				
				
				--------------------------------------------------------------------------------