本文整理自网络，侵删。
delphi 获取所有应用程序窗口标题 类似任务管理器procedure TForm1.Button1Click(Sender: TObject);
var
hCurWindow:HWnd;
WinText:array[0..255] of char;
begin
memo1.Lines.Clear;
hCurWindow:=GetWindow(Handle,GW_HWNDFirst);
while hCurWindow<>0 do
begin
if (GetWindowText(hCurWindow,@WinText,255)>0) and (IsWindowVisible(hcurwindow))
and(StrPas(@WinText)<>'Program Manager')and(StrPas(@WinText)<>self.Caption) then
//if GetWindowText(hCurWindow,@WinText,255)>0 then 此可获得所有窗口?祟}(可找到系?y程序)
Memo1.Lines.Add(StrPas(@WinText));
hCurWindow:=GetWindow(hCurWindow,GW_HWNDNEXT); //查找下个程序窗口句柄.
end;
end; 相关阅读 >>
Delphi webbrowser ie 窗口选择中，选中的文字内容
Delphi firedac 下的 sqlite [4] - 创建数据库
Delphi twebbrowser出现 method pastehtml not supported by automation object 解决方法
Delphi2010安装twordapplication控件
更多相关阅读请进入《Delphi》频道 >>
