在Kylix中模拟WindowsAPI中的FindWindow函数

页面导航:首页 > 软件编程 > Delphi > 在Kylix中模拟WindowsAPI中的FindWindow函数

在Kylix中模拟WindowsAPI中的FindWindow函数

来源: 作者: 时间:2016-02-05 11:47 【

在Kylix中模拟Windows API中的FindWindow函数(译者注:因为我还没有用过Kylix,第一次翻译Kylix方面的文章可能会有不少的错误,如果我的翻译对您的阅读增加了困难的话,请参照原文,在此

 

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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <