password revealer

du kan finde et program til det på www.xcoder.com
jeg tvivler nu på du kan få koden til det.

ha\' det godt
hatecaps

Kig på The Customizer på http://www.ozemail.com.au/~wanga/ - den kan hvad du leder efter - og MEGET mere :)

prøv den her:unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    I: TEdit;
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Bevel1: TBevel;
    Label2: TLabel;
    sysres: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses AboutDlg;

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var
    PSWord: pchar;
    W    : THandle;
    Mus : TPoint;
begin
    GetCursorPos(Mus);
    W := WindowFromPoint(Mus);
    Getmem(PSWord,500);
    SendMessage(W, WM_GETTEXT, 500, LongInt(PSWord));
    I.Text := string(PSWord);
    freemem(PSWord);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OmDlg.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  MS: TMemoryStatus;
begin
GlobalMemoryStatus(MS);
sysres.Caption := Format(\'%d %%\', [MS.dwMemoryLoad]);
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label4.Caption := TimeToStr(Time)
end;

end.