在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