在Kylix中模拟Windows API中的FindWindow函数

原创 2001年08月16日 09:42:00

 

在Kylix中模拟Windows API中的FindWindow函数


(译者注:因为我还没有用过Kylix,第一次翻译Kylix方面的文章可能会有不少的错误,如果我的翻译对您的阅读增加了困难的话,请参照原文,在此表示深深的歉意。翻译时略有删节)


概要:这篇文章描述了一个非常便利的FindWindow函数。作者:Matthias Thoma。

在XWindow界面函数库XLib中没有类似于Windows API的FindWindow函数。然而,用一个已知的ID得到一个窗口的名字是可能的,而且非常容易。这将用到XFetchName函数,XFetchName原型为:

function XFetchName(Display: PDisplay; W: TWindow;
 WindowNameReturn: PPChar): TStatus; cdecl;

比较难的步骤是如何得到每一个窗口的ID。为此,你就需要XLib中的XQueryTree函数,这个函数检索指定的窗口,得到子窗口,根,父窗口和子窗口个数的一个列表。联合这两个函数和一个标准的查找算法,你就得到了一个与Windows的FindWindow具有相同功能的函数了。

函数XQueryTree的原型为:
function XQueryTree(Display: PDisplay; W: TWindow; RootReturn: PWindow;
 ParentReturn: PWindow; _para5: PPWindow; NChildrenReturn: PCardinal): TStatus;

The following code shows how to do it. It is a Kylix translation of a public domain source by Brian Paul.
下面的代码演示了怎样完成这一功能。

{ FindWindow 函数

  Input:  dpy   - the X display
          scr   - the X screen 的数目
          start - 在哪儿开始搜索, 通常根窗口
          name  - 要查找的窗口的弥
}


function FindWindow(Display: PDisplay; Screen: Integer; Start: TWindow; Name: PChar): TWindow;
type
   AChildren = array[0..0] of Window;
   PChildren = ^AChildren;

var
  stat: TStatus;
  n: Integer;
  num: Cardinal;
  w: Window;
  root: Window;
  parent: Window;
  Children: PChildren;
  Title: PChar;


begin
   if (XFetchName(Display, Start, @Title) = 1) then
   begin
      if (strcmp(Name, Title )=0) then
      begin
         XFree(Title);
         Result := Start;
         Exit;
      end;
      XFree(Title);
   end;

   stat := XQueryTree(Display, start, @root, @parent, @children, @num);

   if (stat = 1) then
   begin
      { search each child window for a match: }
      for n := num-1 downto 0 do
      begin
         if (XFetchName(Display, start, @title )=1) then
         begin
            if (strcmp(name, title)=0) then
            begin
               { found it }
               XFree(Title);
               Result := Start;
               Exit;
            end;
            XFree(Title);
         end;
      end;

      { search the descendents of each child for a match: }

      for n := num-1 downto 0 do
      begin
         w := FindWindow(Display, Screen, Children^[n], Name);
         if (w <> 0) then
         begin
            XFree(Children);
            Result := w;
            Exit;
         end;
      end;

      if (children <> Nil) then
      begin
         XFree(Children);
      end;
   end;

   Result := 0;
end;

如果Kylix正在运行,你使用这个函数就能找出:

function IsKylixRunning: Boolean;
begin
  Result := FindWindow(QtDisplay,XDefaultScreen(QtDisplay),XDefaultRootWindow(QtDisplay),'Kylix') <> 0;
end;

或许你想要一些IFDEF,现在Delphi是跨平台的了:
function IsDelphiRunning: Boolean;
begin
  Result := False;

{$IFDEF LINUX}
  Result := FindWindow(QtDisplay,XDefaultScreen(QtDisplay),XDefaultRootWindow(QtDisplay),'Kylix') <> 0;
{$ENDIF}

{$IFDEF WIN32}
   Result := FindWindow('TAppBuilder', nil) <> 0;
{$ENDIF}
end;

FindWindow,Win32 API函数

FindWindow,Win32 API函数。FindWindow,Win32 API函数。  FindWindow函数返回与指定字符串相匹配的窗口类名或窗...
  • xionghaoaizhangruyun
  • xionghaoaizhangruyun
  • 2010年04月09日 17:35
  • 2260

如何获得窗口句柄(FindWindow函数的使用)

一: 获得主窗口 HWND WINAPI FindWindow( _In_opt_  LPCTSTR lpClassName, _In_opt_  LPCTSTR lpWindowName ...
  • mjlsuccess
  • mjlsuccess
  • 2013年07月02日 19:58
  • 17110

VS2010中FindWindow()函数问题

在练习Windows API 时,FindWindow函数时肯定会用到的,写一个简单的函数大家可以运行一下 #include //API函数的头...
  • Bolun_Li
  • Bolun_Li
  • 2015年04月29日 14:42
  • 1245

C#中使用FindWindow函数详解

 FindWindow 用来根据类名和窗口名来得到窗口句柄的。但是这个函数不能查找子窗口,也不区分大小写。如果要从一个窗口的子窗口中查找需要使用FindWindowEX。1.在C#中使用方法如下:[D...
  • soief
  • soief
  • 2009年04月20日 14:32
  • 31790

Delphi 中 FindWindow 和 FindWindowEx 的语法和用法

FindWindow(lpClassName,        {窗口的类名}lpWindowName: PChar {窗口的标题}): HWND;              {返回窗口的句柄; 失败返...
  • yanjiaye520
  • yanjiaye520
  • 2011年06月14日 11:18
  • 13405

FindWindow寻找窗口列表中第一个符合指定条件的顶级窗口

FindWindow VB声明 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName A...
  • hutao1101175783
  • hutao1101175783
  • 2013年08月23日 21:57
  • 1619

C#应用WindowsApi实现查找\枚举(FindWindow、EnumChildWindows)窗体控件,并发送消息。

转载:http://www.cnblogs.com/hehexiaoxia/p/4223927.html 首先介绍基本WindowsApi: public static exter...
  • beyonddeg
  • beyonddeg
  • 2016年10月22日 05:15
  • 2381

FindWindow函数的用法

   函数的声明: Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,...
  • stone0823
  • stone0823
  • 2008年06月28日 00:47
  • 17674

c#里FindWindow的用法

FindWindow()函数的用法。要在C#里使用该API,写出FindWindow()函数的声明:             [DllImport("coredll.dll", EntryPoint ...
  • enginetanmary
  • enginetanmary
  • 2007年04月20日 13:21
  • 7885

获取到windows任务管理器的项

#include #include void main() { HWND hwnd; int iItem=0; LVITEM lvitem, *plvite...
  • tangyanzhi1111
  • tangyanzhi1111
  • 2014年04月07日 20:05
  • 1443
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Kylix中模拟Windows API中的FindWindow函数
举报原因:
原因补充:

(最多只允许输入30个字)