在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;
|
本类阅读TOP10