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

 

在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;

本文地址：http://com.8s8s.com/it/it5931.htm