有关getwindow函数的一个问题。请大家帮忙。谢谢。(50分)

我想取得当前应用程序下面的一个窗口（别的程序）的名称。代码如下：<br>procedure TForm1.Button3Click(Sender: TObject);<br>var<br>pstrchar;<br>begin<br>&nbsp; getmem(pstr,20);<br>&nbsp; hwndcurrent:=GetWindow(form1.handle,GW_HWNDNEXT);//form1为当前窗体。<br>&nbsp; GetWindowText(hwndcurrent,pstr,20);<br>&nbsp; edit1.Text :=strpas(pstr);<br>&nbsp; freemem(pstr);<br>end;<br>为什么每次edit1里面的内容都是空白呢？这样取回来的是哪个窗体的句柄？

form1窗体的formstyle是fsStayOnTop

为什么没有人帮我？