文件名称：delphi 隐藏字符*的获取
文件大小：190KB
文件格式：RAR
更新时间：2014-06-06 10:47:20
delphi 隐藏字符*的 获取
unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var buffer:PChar;//存储空间 L:Integer;//密码框内容的长度 begin L:=GetWindowTextLength(Edit1.Handle);//取密码框内容的长度 GetMem(buffer,L+1);//分配内存空间，注意加1，因为ASCII码以"\0"结尾 SendMessage(Edit1.Handle,WM_GETTEXT,L+1,Integer(buffer)); Label2.Caption:=string(buffer);//显示 FreeMem(buffer);//释放内存 end; end.
【文件预览】：
获取密码
----GetMessage.dproj.local(2KB)
----__history()
--------UnitMain.pas.~5~(841B)
--------UnitMain.dfm.~7~(1KB)
--------UnitMain.dfm.~5~(1KB)
--------UnitMain.pas.~2~(363B)
--------UnitMain.dfm.~2~(796B)
--------UnitMain.pas.~3~(386B)
--------UnitMain.dfm.~8~(1KB)
--------UnitMain.pas.~4~(407B)
--------UnitMain.dfm.~1~(329B)
--------UnitMain.dfm.~4~(1KB)
--------UnitMain.pas.~1~(313B)
--------UnitMain.dfm.~6~(1KB)
--------UnitMain.dfm.~3~(951B)
----GetMessage.res(5KB)
----GetMessage.identcache(228B)
----GetMessage.dproj(4KB)
----GetMessage.exe(418KB)
----GetMessage.dpr(238B)
----UnitMain.dcu(4KB)
----UnitMain.dfm(1KB)
----UnitMain.pas(843B)