如何读取其他程序密码框中的密码？

Question

请给出明确代码。

Answer 1

nit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    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);
    SendMessage(Edit1.handle,WM_GETTEXT,L,integer(buffer));
    label1.Caption:=String(buffer);
    FreeMem(buffer);
end;end.
这是本程序中获得密码的代码，若其他程序，应获得edit的句炳，用spy++什么的。