本文整理自网络,侵删。
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 windows 编程[21] - wm_menuselect 消息与 getmenustring 函数
Delphi tapplication.onexception
Delphi winapi: findwindow、findwindowex - 查找窗口
更多相关阅读请进入《Delphi》频道 >>