ITPub博客

首页 > Linux操作系统 > Linux操作系统 > delphi 获取所有应用程序窗口标题 类似任务管理器中的应用程序框内容

delphi 获取所有应用程序窗口标题 类似任务管理器中的应用程序框内容

原创 Linux操作系统 作者:niuchao 时间:2019-03-13 09:09:07 0 删除 编辑
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 此可获得所有窗口標題(可找到系統程序)
     Memo1.Lines.Add(StrPas(@WinText));
     hCurWindow:=GetWindow(hCurWindow,GW_HWNDNEXT); //查找下个程序窗口句柄.
   end;
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/166523/viewspace-772387/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2004-11-04

  • 博文量
    139
  • 访问量
    108151