如何知道另外一个程序的当前状态.txt

VB技巧问答10000例 VB技巧问答10000例

如 果 某 组 件 与 当 前 进 程 隶 属 于 同 一 进 程 的 地 址 空 间 ， 那 么 GetModuleHandle可 以 用 来 获 取 该 组 件 的 句 柄 。 例 如 ， 如 果 你 的 VB程 序 中 调 用 了 Kernel32中 的 API， 那 么 用 GetModuleHandle可 以 获 取 Kernel32.dll的 句 柄 。 事 实 上 记 事 本 与 你 的 程 序 不 属 于 同 一 进 程 ， 因 此 用 GetModuleHandle无 法 达 到 你 所 期 望 的 效 果 。 
    有 一 种 方 法 可 以 解 决 你 的 问 题 。 你 可 以 用 GetWindow(me.hwnd,GW_HWNDFIRST)获 得 顶 级 窗 口 列 表 的 第 一 个 窗 口 ， 然 后 根 据 该 窗 口 的 句 柄 用 GetWindow(x,GW_HWNDNEXT)枚 举 所 有 的 顶 级 窗 口 。 每 获 得 一 个 窗 口 句 柄 ， 就 用 GetWindowText活 动 窗 口 的 标 题 ， 如 果 标 题 里 发 现 有 “ 记 事 本 ” 字 样 说 明 有 记 事 本 打 开 。 
    还 有 一 种 方 法 比 较 麻 烦 ， 就 是 枚 举 当 前 所 有 的 进 程 ， 如 果 发 现 有 “ notepad” 说 明 有 记 事 本 打 开 。
<END>