枚举主窗口句柄:<br><br>查阅可视窗口标题 <br><br>下面只是举出一个例子提供参考:运用API函数GetWindow()配合GetWindowText()逐一查出各视窗的标题 <br><br>1. File | New Project 开始一个新的工程<br>2. 在 Form1 中安排 Button 与 Memo 各一<br>3. 在 Button1 的 OnClick 事件中撰写程式如下:<br>procedure TForm1.Button1Click(Sender: Tobject);<br>var<br> hCurrentWindow: HWnd;<br> szText: array[0..254] of char;<br>begin<br> hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);<br> while hCurrentWindow <> 0 do<br> begin<br> if GetWindowText(hCurrentWindow, @szText, 255)>0 <br> then Memo1.Lines.Add(StrPas(@szText));<br> hCurrentWindow:=<br> GetWindow(hCurrentWindow, GW_HWNDNEXT);<br> end;<br>end;<br><br>