.版本 2 .支持库 eAPI .程序集 窗口程序集1 .程序集变量 HWindow, 文本型, , "0" .程序集变量 WRect, RECT .子程序 __启动窗口_创建完毕 设置时钟_ (取窗口句柄 (), 1024, 1, 到数值 (&TiemrProc)) .子程序 TiemrProc .局部变量 n1, 整数型 .局部变量 HadFound, 逻辑型 HWindow ＝ 取所有窗口列表 () .计次循环首 (取数组成员数 (HWindow), n1) .如果真 (取窗口类名 (到数值 (HWindow [n1])) ＝ “TXGuiFoundation”) GetWindowRect_ (到数值 (HWindow [n1]), WRect) HadFound ＝ 真 跳出循环 () .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () .如果真 (HadFound ＝ 假) 结束 () ' 本源码来自三叶资源网(www.sanye.cx) .如果真结束 顶边 ＝ WRect.Bottom 左边 ＝ WRect.Left ＋ 5