在Kylix中模擬WindowsAPI中的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;