怎样查看星号密码？(30分)

我的163卡丢了，在系统重装前，想找回密码（帐号在拔号连接中还能看到）
谢谢！！

procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos : TPoint;
Handle : HWND;
Buf : array[0..1024] of Char;
passmark : Integer;
begin
// GetCursorPos(Pos);
// Handle := WindowFromPoint(Pos);
Handle := Edit1.Handle;
GetClassName(Handle, Buf, 1024);
passmark := SendMessage(Handle, EM_GETPASSWORDCHAR, 0, 0);
if passmark <> 0 then
begin
postmessage(Handle, EM_SETPASSWORDCHAR, 0, 0);
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
postmessage(Handle, EM_SETPASSWORDCHAR, wparam(ord('*')), 0);
end
else
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@buf));
Edit2.Text := Buf;
end;

To svw0506：
Win_XP & Delphi6
行不通！！

//上面的写错了，试试这个
procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos : TPoint;
Handle : HWND;
Buf : array[0..1024] of Char;
passmark : Integer;
begin
GetCursorPos(Pos);
Handle := WindowFromPoint(Pos);
GetClassName(Handle, Buf, 1024);
passmark := SendMessage(Handle, EM_GETPASSWORDCHAR, 0, 0);
if passmark <> 0 then
begin
postmessage(Handle, EM_SETPASSWORDCHAR, 0, 0);
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
postmessage(Handle, EM_SETPASSWORDCHAR, wparam(ord('*')), 0);
end
else
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@buf));
Edit2.Text := Buf;
end;

To svw0506:
还是不行！！(Win_XP & Delphi6)

Var
mPoint:TPoint;
Ret:LongInt;
mTextChar;
mID:Integer;
Buf:Integer;
DTWND:HWND;
begin
GetMem(mText,1024);
try
GetCursorPos(mPoint);
DTWND:=WindowFromPoint(mPoint);
Ret:=SendMessage(DTWND,WM_GETTEXTLENGTH,0,0);
Buf:=LongInt(mText);
SendMessage(DTWND,WM_GETTEXT,1024,Buf);
Edit1.Text:=StrPas(mText);
finally
FreeMem(mText,1024);
end;
end;

TO gonghh：
不行！！

新建一Form，放置Label、Edit、Button各一个到Form中，将Edit1的PasswordChar属性改为“＊”，双击Button1：
procedure TForm1.Button1Click(Sender: TObject);
var
NameChar;// 名字
L:integer;//名字的长度
begin
L:=GetWindowTextLength(Edit1.handle)+1;// 得到名字长度，并将长度加1
GetMem(Name,L);//为将要得到的名字分配内存
GetWindowText(Edit1.handle,Name,L);//得到名字
label1.Caption:=String(Name);// 将得到的名字显示于 Label1
FreeMem(Name,0);// 释放分配的内存
end;

//win2000+Delphi=ok

要看win2000,xp保存起来的密码，首先要破解它的加密算法，这个是关键！
接下来的事情就简单了……
自己研究吧，想当年我可……：（