一个最简单的密码查看器！！！(0分)

小第刚写出一个密码查看器，不敢独享。在各位大侠面前现丑了。

procedure TForm1.Timer1Timer(Sender: TObject);
var
currentCursor: TPoint;
hWndMouseOver: HWND;
text: PChar;
L:integer;
begin
GetCursorPos(currentCursor);
hWndMouseOver:=WindowFromPoint(currentCursor);
getmem(text,255);
try
GetWindowText(hwndmouseover,text,L);
Edit1.Text:=String(text);
finally
FreeMem(Text);
end;
end;

好！
但这东西用处也不太大……

接受答案了.