|
|
大家都用过用来显示密码的工具吧，嘿嘿。其实原理很简单.比如说在delphi中，Edit控件的PasswordChar属性可让框中的回显的字符为自己想要的字符。但是这些字符对于内部来说是不变的（虽说不够专业，但就是这么回事)！！而我们伟大的Delphi给了这个API----
int GetWindowTextLength(HWND hWnd）；得到名字的长度
int GetWindowText得到名字
hWnd代表句柄大家都知道吧。还是不说废话。看下的程序;
在Form中放Label,Edit,Button各一。将Edit的PasswordChar属性改成自己想要的字符。加入Button代码：
procedure TForm1.Button1.Click(sendor:TObject); Var Charname:Pchar; CharLong:integer; begin Charlong:=GetwindowTextLength(Edit1.handle)+1; Getmem(charname,charlong); GetWindowText(Edit.handle,Charname,Charlong); Label1.Caption:=String(Charname); FreeMem(charname,0) end;
在Delphi 5.0 for winme下通过。
当然，这只是原理，原理而已。你大可以再融合其它技术，写一个自己的密码查看器。
|
|
