怎样查看星号密码？(还有没有高手啊？？？） (30分)

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

var
s: string;
begin
SetLength(s, 200);
SendMessage(Handle, WM_GETTEXT, 200, LongInt(S));
Form1.Edit2.Text := s;
Result := True;
end;

这些就应该够了。[]，适合95/98/me/2000/xp

{-------------------------------------------------------------------------------}
{系统的回调过程，在本过程内发送显示/隐藏密码的消息}
function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall;
var
buffer: array[0..255] of Char;
begin
GetClassName(hwnd, buffer, 256);
//if StrPas(Buffer) = 'TEdit' then //找TEdit控件
begin
if lparam = 0 then
PostMessage(hwnd, EM_SETPASSWORDCHAR, longint(0), 0)
else
PostMessage(hwnd, EM_SETPASSWORDCHAR, longint('*'), 0);

InvalidateRgn(hwnd, 0, True);
Result := True; //终止循环
end;
end;

{-------------------------------------------------------------------------------}
{显示/隐藏所有窗体密码，本部分枚举所有窗体}
procedure ShowAll(lparam: Integer);
var
Window_Handle, Hand: Integer;
begin
Window_Handle := GetWindow(Application.Handle, GW_HWNDFIRST);
while Window_Handle <> 0 do
begin
if Window_Handle <> 0 then
begin
EnumChildWindows(Window_Handle, @EnumChildWindowsProc, lparam);
end;
Window_Handle := GetWindow(Window_Handle, GW_HWNDNEXT);
end;
end;

{-------------------------------------------------------------------------------}
{响应按键}
procedure TFrm_ShowPass.sbtn_ShowPassClick(Sender: TObject);
begin
ShowAll(0);
end;

procedure TFrm_ShowPass.sbtn_hidePassClick(Sender: TObject);
begin
ShowAll(1);
end;

To beta:
运行结果：（怎么解决？？）
[Error] Unit1.pas(34): Undeclared identifier: 'Result'
[Error] Unit1.pas(38): '.' expected but ';' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

...
你需要学习一下Delphi[]

To yzhshi:
你的方法行不通！！

能，不妨我可以给你提供可执行文件。
注意：不要是2000下呀，2000下这个似乎本来就是星号，我将它变来变去还是星号[]

To yzhshi:
Win_XP怎样??

好像也一样。

给你一个建议：
找那些读取密码的软件吧，可以读取系统的一些密码，如网络共享等的，也许对你这个有用。
关键你的是2000系统，它里面本来就是显示的星号，不是掩码。读出来也是*

哎！！

在 “超级兔子魔法设置”里面，有个IP攻略，专门查看*号密码的，搜索一下，很多地方可以下载
这东西在WIN98里面使用肯定没问题，但在WIN2000SVR里不行，WINXP是否可行，你可以试一下