星号密码查看器的编写

2009-10-7 01:42 693 0

摘要: 在网上看到那些星号密码查看器很酷吧，其实用Delphi写起来很简单，只需要2个api函数就可以搞定。第一个int GetWindowTextLength(HWND hWnd); ／／得到名字的长度其...

关键词： 名字长度 HWND handle 句柄 Name GetWindowTextLen 建一 GetWindowText 控件

在网上看到那些星号密码查看器很酷吧，其实用Delphi写起来很简单，只需要2个api函数就可以搞定。第一个int GetWindowTextLength(HWND hWnd); ／／得到名字的长度其中，hWnd ：想要得到的那个窗口或控件的句柄 handle第二个int GetWindowText(HWND hWnd，LPTSTR lpString，int nMaxCount );／／得到名字其中，hWnd ：想要得到的那个窗口或控件的句柄 handle；lpString：存放名字的字符串的地址nMaxCount ：可拷贝的最大字符数写个简单的吧新建一Form，放置Label、Edit、Button各一个到Form中，将Edit1的PasswordChar属性改为“＊”，双击Button1：procedure TForm1.Button1Click(Sender: TObject);varName:PChar;//名字L:integer;//名字的长度beginL:=GetWindowTextLength(edit1.Handle)+1; //得到名字长度，并将长度加1GetMem(Name,L);//为将要得到的名字分配内存GetWindowText(edit1.Handle,Name,L);//得到名字Label1.Caption:=String(Name);//将得到的名字显示于 Label1FreeMem(Name,0);//释放分配的内存end;运行，在编辑框里随便输入，单击button1就可以显示出来

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除