高分相送！请问怎么能截获一个应用程序里的某一个窗口里的一个Tedit的text？(200分)

我现在在为一个应用程序写一个动态连接库程序，可以知道这个应用程序的主窗口句柄。
现在需要只要按回车键就获取这个应用程序的某一个窗口里的一个Tedit的text，然后根
据其所输入的进行相应处理。这个窗口是一个类似于键盘精灵的窗口，它的出现是在主
窗口里输入数字或字符后才出现的，输入回车后就会消失。请问该怎么做？最好能说的
详细点！

要是自己的程序就很好处理,若你不能在那个程序中自己写程序,只能在外面自己写的程序来
判断,那么你只好写一个键盘HOOK来判断.论坛中关于HOOK的答案很多.97530,495775,21046,
296414,568573,564186等等许多,自己看看吧.

下面的文章来自99年电脑报, 不知是否有帮助帮助.

作者：大师
我们在使用Windows时,经常会碰到一些密码编辑框,输入其中的文字都以
“＊”显示。现在,有许多共享软件和自由软件都可以实现隐藏密码的正确显
示。究竟这是怎样实现的呢！其实,这比较简单,虽然这些信息都以“＊”显
示,但其内部还是以当初的字符表示,所以,我们只要用Windows API函数就可
以实现。
在Windows中,每一个窗口、控件都有它的名字(叫做Name或Window
Text)。对于Form、Dialog Box、Message Box来说,名字就显示在Title
Bar中；对于Edit、Button、Static Control,名字显示在他所占的区域中。
密码编辑框本身就是个Edit控件,虽然显示的是特殊字符,但名字属性没有变,
还是输入时的字符。Windows提供了两个API函数来获得这个名字：
int GetWindowTextLength(HWND hWnd)； ／／ 得到名字的长度
其中,hWnd ：想要得到的那个窗口或控件的句柄 handle
int GetWindowText(HWND hWnd, LPTSTR lpString, int nMaxCount )；
／／ 得到名字
其中,hWnd ：想要得到的那个窗口或控件的句柄 handle；
lpString：存放名字的字符串的地址
nMaxCount ：可拷贝的最大字符数
下面以Delphi为例,说明它的实现过程。
新建一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；
经过运行,在Edit1中输入的密码就可通过Label1显示出来。

function GetEditHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall;
var
buffer: array[0..255] of Char;
buffer1: array[0..255] of Char;
begin
Result := True;

GetClassName(hwnd,buffer,256);

if StrPas(Buffer)='Edit' then
begin
GetWindowText(hwnd,buffer1,100);
PInteger(lparam)^ := hwnd;
Result:=False;
end;
end;
funtcion gettext:string;
var
Buf: array[0..1024] of Char;
tmpHandle: Integer;
Ftexthandle:hwnd;
begin
EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));
FTextHandle := tmpHandle;
SendMessage(FTextHandle , WM_GETTEXT, 1024, Integer(@Buf));
result := Buf;
end;

多人接受答案了。