.版本 2

.支持库 eAPI

.程序集 窗口程序集_启动窗口

.程序集变量 w

.子程序 _时钟1_周期事件

.局部变量 i, 整数型

i ＝ GetForegroundWindow ()

.如果真 (i ≠ w)

    w ＝ i

    GetWindowThreadProcessId (w, i)

    编辑框1.加入文本 (到时间文本 (取现行时间 ()) ＋ “|hwnd:” ＋ 到文本 (w) ＋ “|pid:” ＋ 到文本 (i) ＋ “|” ＋ 取标题不等待 (w) ＋ “|” ＋ 取窗口类名 (w) ＋ “|” ＋ 取进程路径 (i) ＋ #换行符)

    .如果真 (取窗口句柄 () ≠ w)

        FlashWindow (取窗口句柄 (), 1)

    .如果真结束

.如果真结束

.子程序 取进程路径, 文本型

.参数 id, 整数型

.局部变量 p

.局部变量 文本, 文本型

p ＝ OpenProcess (#PROCESS_QUERY_INFORMATION, 0, id)

.如果真 (p ≠ 0)

    文本 ＝ 取空白文本 (260 × 2)

    .如果真 (GetProcessImageFileName (p, 文本, 260 × 2 ＋ 1) ≠ 0)

        CloseHandle (p)

        返回 (文本)

    .如果真结束

    CloseHandle (p)

.如果真结束

返回 (“”)

.子程序 到时间文本, 文本型

.参数 时间, 日期时间型

返回 (到文本 (取年份 (时间)) ＋ “-” ＋ 到文本 (取月份 (时间)) ＋ “-” ＋ 到文本 (取日 (时间)) ＋ “ ” ＋ 到文本 (取小时 (时间)) ＋ “:” ＋ 到文本 (取分钟 (时间)) ＋ “:” ＋ 到文本 (取秒 (时间)))

.子程序 取标题不等待, 文本型

.参数 句柄

.局部变量 文本, 文本型

.局部变量 c, 整数型

c ＝ GetWindowTextLength (句柄)

文本 ＝ 取空白文本 (c)

c ＝ c ＋ 1  

GetWindowTextA (句柄, 文本, c)

返回 (文本)

.子程序 __启动窗口_尺寸被改变

编辑框1.移动 (0, 0, 取用户区宽度 (), 取用户区高度 ())