看看这个吧比你的好   ^_^
[url]http://www.programfan.com/down/pwdspy.zip[/url]

确实可以，帮我解决了一个问题．请加我：ＱＱ：４５３５９１９２
　　　　　　　　　　　　　　　　　　　ＩＣＱ：２２０２８８５４１

我已经加了你的QQ
我的是119687116
大家一起交流!

多谢了，但是你上面有非法字符。直接复制上去不能用。害我弄了好久~~！

编程爱好者里不是有吗?在源码区里,叫Password Spy,我刚刚看过人家的源码,好像比你的简单:

unit MainFrm;

interface

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

type
  TMainForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    HandleEdit: TEdit;
    ClassEdit: TEdit;
    TextEdit: TEdit;
    OnTopCheckBox: TCheckBox;
    Timer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure OnTopCheckBoxClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

function GetWorkAreaRect: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @Result, 0);
end;

procedure SetStayOnTop(Form: TForm; Value: Boolean);
begin
  if Value Then
    SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
  else
    SetWindowPos(Form.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE);
end;

procedure TMainForm.FormCreate(Sender: TObject);
var
  R: TRect;
begin
  R := GetWorkAreaRect;
  Left := R.Right - Width;
  Top := R.Bottom - Height;
  SetStayOnTop(Self, True);
end;

procedure TMainForm.TimerTimer(Sender: TObject);
var
  Pos: TPoint;
  Handle: HWND;
  Buf: array[0..1024] of Char;
begin
  GetCursorPos(Pos);
  Handle := WindowFromPoint(Pos);
  HandleEdit.Text := IntToStr(Handle);
  GetClassName(Handle, Buf, 1024);
  ClassEdit.Text := Buf;
  SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
  TextEdit.Text := Buf;
end;

procedure TMainForm.OnTopCheckBoxClick(Sender: TObject);
begin
  SetStayOnTop(Self, OnTopCheckBox.Checked);
end;

end.

好是好但现在都是用XP拉,一般的密码符号都是●拉
[转载]密码输入也XP

　　大家知道，在XP风格下，密码输入时显示如“●●●”圆形状态，那么DELPHI中是如何实现这样的效果呢？
　　在delphi中TEDIT中的passchar是不支持●字符的，只能是显示如＊等字符。那么只有是另寻途经了，首先在EDIT中KeyPress过程，取得用户从键盘输入的字符并把它送到另一个变量中,然后，要将刚刚输入的字符清除（否则会显示出输入的内容），这样既可获取用户输入的内容，又让EDIT控件不显示出来，此时，我们在EDIT控件中加入“●”符号，就可以实现上述的XP风格了。
举例如下：（我们以myInputPwd为存放密码的变量）
procedure TfrmLogin.EDIT1KeyPress(Sender: TObject; var Key: Char);
begin
myInputPwd:=MyInputPwd + Key;
Key:=#0;
EDIT1.Text:=EDIT1.Text +'●';
end;
不过，值得一提的是，这时进行密码校验时，一定要取MyinputPwd这一变量了。