怎样得到所有窗口标题？(30分)

var<br>&nbsp; Text: string;<br>begin<br>SetLength (Text, 100);<br>GetWindowText(form1.Handle, PChar (Text), 100);<br>end;<br>这个API只能得到我的DELPHI程序的标题，想要所有的打开的窗口标题用到哪个API？<br>&nbsp; &nbsp;

procedure TForm1.Button1Click(Sender: Tobject);<br>var<br>&nbsp;hCurrentWindow: HWnd;<br>&nbsp;szText: array[0..254] of char;<br>begin<br>&nbsp;hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);<br>&nbsp;while hCurrentWindow&lt;&gt; 0 do<br>&nbsp;begin<br>&nbsp; &nbsp;if GetWindowText(hCurrentWindow, @szText, 255)&gt;0 <br>&nbsp;then Memo1.Lines.Add(StrPas(@szText));<br>&nbsp; &nbsp;hCurrentWindow:=<br>&nbsp;GetWindow(hCurrentWindow, GW_HWNDNEXT);<br>&nbsp;end;<br>end;<br>这样行不行？

接受答案了.