上 期 我 们 介绍 了 调 用WindowsAPI 函 数 的 方 法， 本 期 我 们 继 续 介 绍 几 个常 用 的API 函 数。

一 个 简 单 的 文 件 拷 贝 例 程

       Windows 操 作 系统 在 象 文 件 操 纵 一 类 的 低 级 函 数 调 用 方 面 是 相 当 灵活 的。 而 在PowerBuilder 中 为 了 实 现 这 一 些 低 级 操 作， 开 发者 们 必 须 用 第 三 方 开 发 库（ 如：FUNCkyforPowerBuilder 库） 或 用C 语 言 之 类 的 语 言 开 发 自 己 的 库， 这 种 方 法 我 们 将 在 后面 的 章 节 中 讨 论。 在 这 里， 我 们 首 先 展 示 如 何 通 过 调用WindowsAPI 函 数 实 现 简 单 而 又 常 用 的 低 级 操 作： 文 件 拷贝。

       使 用WindowsAPI 而不 用 第 三 方 开 发 库 的 主 要 好 处 是， 如 果 这 是 您 所 要 的唯 一 的 低 级 操 作， 在 发 布 您 的 应 用 时 就 不 需 要 同 时 将额 外 的 库 打 包 进 您 的 应 用 中。 但 如 果 您 还 需 使 用 了 第三 方 开 发 库 提 供 的 其 它 服 务， 为 简 单 起 见， 您 使 用 第三 方 开 发 库 所 提 供 的 例 程 可 能 要 更 方 便 些。

实 现： 首 先 声 明 下 列localexternal 函 数

 Function  long  LZOpenFile(string  FileName,  REF ws_ofstruct  FileStructure,uint  style) Library "lzexpand.dll"Function  long  CopyLZFile(uint  SourceHandle, uint  DestHandle)Library  "lzexpand.dll"Function  long  LZClose (uint  FileHandle)  Library  "lzexpand.dll"ws_ofstruct的窗口级结构如下：Variable NameData Type
byte[1]char
fixed_disk[1]char
errorcodeuint
reserverd[4]char
pathname[128]char键入下面的一个窗口级函数：wf_copy// 返 回:	boolean// 参 数:	string	as_source	string	as_destlong		ll_SourceFileHandle, ll_DestFileHandle, ll_resultws_ofstruct	   lstr_SourceFileStructure, lstr_DestFileStructure// 打 开 源 文 件ll_SourceFileHandle = LZOpenFile ( as_source, lstr_SourceFileStructure, 0 )IF ll_SourceFileHandle = -1 THEN	MessageBox ( " 程 序 错 误", " 无 法 打 开 文 件: " + as_source )	Return FALSEEND IF// 打 开 目 标 文 件ll_DestFileHandle = LZOpenFile ( as_dest, lstr_DestFileStructure, 4096 )IF ll_DestFileHandle = -1 THEN	MessageBox ( " 程 序 错 误", " 无 法 创 建 文 件: " + as_dest )	LZClose ( ll_SourceFileHandle )	Return FALSEEND IF// 拷 贝ll_result = CopyLZFile ( ll_SourceFileHandle, ll_DestFileHandle )IF li_result <0 THEN MessageBox (" 程 序 错 误"," 无 法 拷 贝 文 件: " + as_source & + " to file: " + as_dest ) LZClose ( ll_SourceFileHandle ) LZClose ( ll_DestFileHandle ) Return FALSE END IF // 关 闭 文 件 LZClose ( ll_SourceFileHandle ) LZClose ( ll_DestFileHandle ) Return TRUE 

工 作 原 理

       Windows 所 带 的COMPRESS.EXE 是 一 个 处 理 采 用Lempel-ziv 算 法 压 缩 的 文 件 的 可 执 行 文件。 此 外Windows 内 部 还 包 含 了 几 个 处 理 这 一 算 法 的 函数， 其 中 之 一 是LzCopy 函 数， 该 函 数 可 以 用 来 生 成 解 压缩 文 件。 同 时LzCopy 函 数 的 文 档 中 还 说 明 了：“ 如 果 原 文件 未 被 压 缩， 该 函 数 复 制 原 文 件。” 于 是LzCopy 函 数 也 可以 用 作 一 个 快 速 的 文 件 拷 贝 函 数。

       LzCopy 函 数 有两 个 参 数， 原 文 件 和 目 标 文 件 的 句 柄。 但 是 不 幸 的是，PowerBuilder 提 供 的FileOpen 函 数 返 回 的 文 件 句 柄 并 不 是LzCopy 所 需 要 的 那 个 句 柄。 因 此， 如 果 调 用WindowsAPI 中 的LzCopy 函数， 我 们 必 须 同 时 使 用LzOpenFile 和LzClose 函 数， 以 确 保 获 得所 需 要 的 文 件 句 柄。

       LzFileOpen 函 数有 三 个 参 数。 第 一 个 参 数 是 将 要 打 开 的 文 件 名， 第 二个 参 数 是 一 个 结 构， 这 个 结 构 将 在 函 数 调 用 时 填 入 有关 这 个 文 件 的 信 息， 与PowerBuilder 的FileOpen 函 数 一 样，LzFileOpen 函 数 可 以 创 建 或 打 开 一 个 文 件。 该 函 数 的 第 三 个 参 数指 明 该 函 数 是 被 用 来 以 只 读 方 式 打 开 文 件(0) 还 是 以 只写 方 式 创 建 文 件(4096)。 当 我 们 打 开 了 源 文 件 和 目 标 文件 后， 我 们 只 要 简 单 地 将 返 回 的 这 两 个 文 件 的 句 柄 传递 给LzCopy 函 数， 就 可 实 现 文 件 拷 贝。 最 后， 在 退 出 之 前调 用LzClose 函 数 来 关 闭 这 两 个 文 件。

判 断 另 一 应 用 是 否 正 在 运 行

       实 现： 首 先声 明 下 列localexternal 函 数

 Function uint  GetModuleHandle(string ModuleName)  Library "kernel"Function uint  GetModuleUsage(uint  ModuleName)  Library "kernel"Function uint  FindExecutable(string  FileName, &	REF string Directory,  REF string Result)  Library "shell"键入下面的一个窗口级函数：fw_check_app_status// 返 回:	boolean// 参 数://	string  as_filename//	string  as_directoryinteger	li_size = 144, li_resultstring	ls_executable = Space ( li_size )integer	li_module_usageuint		li_module_handleli_result = FindExecutable ( as_filename, as_directory, ls_executable )IF li_result <32 THEN Return FALSE //如可执行文件已载入，获取这个执行文件的句柄 li_module_handle="GetModuleHandle" ( ls_executable ) IF li_module_handle < 1 THEN // 没 有 载 入 Return FALSE ELSE // 获 取 有 多 少 个 实 例 被 载 入 li_module_usage="GetModuleUsage" ( li_module_handle ) Return TRUE END IF 

工 作 原 理

       这 段 程 序 可以 获 取 某 个 应 用 是 否 正 在 运 行。

       我 们 用windowsAPI 中 的GetModueHandle 函 数 来 判 定 是 否 另 一 个 应 用 正 在 运 行。为 了 做 到 这 一 点， 我 们 需 要 知 道 文 件 的 全 路 径 名( 包括 驱 动 器 名 和 路 径)。 我 们 可 以 将 它 包 含 在 应 用 的INI 文件 中， 也 可 以 通 过 写 入 源 代 码 将 它 嵌 入 可 执 行 程 序。这 里 向 大 家 推 荐 的 是 采 用 前 者 的 方 法， 这 样 作 可 使 应用 具 有 更 多 的 灵 活 性。 在 上 面 的 窗 口 级 函 数 中， 我 们首 先 在 用 户 的Windows 目 录 中 查 找win.ini 文 件。 因 为 对 于 我们 需 要 进 行 查 询 的 应 用 与 特 定 扩 展 名 的 文 档 之 间 的关 联 被 记 录 在WIN.INI 文 件 中。 于 是 我 们 所 要 做 的 第 一 件事 就 是 在WIN.INI 文 档 中 查 找 这 一 关 联， 以 知 道 我 们 所 要寻 找 应 用 是 从 通 过 哪 个 软 件 装 入 的。 我 们 可 以 自 己 搜索WIN.INI 文 件， 或 者 调 用WindowsAPI 中 的FindExecutable 函 数 来 得 到这 一 信 息。 这 里， 我 们 使 用 了 第 二 种 方 法。 我 们 只 要将 与 我 们 所 希 望 寻 找 的 可 执 行 程 序 相 关 联 的 一 个 文件 的 文 件 名 与 路 径 传 递 给FindExecutable 函 数， 就 会 得 到 该可 执 行 程 序 的 全 路 径 名。 这 在 我 们 判 断 出 该 可 执 行 程序 没 有 在 运 行 以 后 启 动 该 程 序 时 是 很 有 用 的。

       一 旦 获 得 了可 执 行 程 序 的 全 路 径 名, 我 们 将 它 传 递 给GefModuleHandle 函数。 如 果 应 用 正 在 运 行， 则 该 函 数 返 回 应 用 的 句 柄。如 果 返 回0， 说 明 应 用 并 没 有 装 入， 此 时 退 出 函 数。 如果 应 用 正 在 运 行， 我 们 将 获 得 的 应 用 的 句 柄 传 递 给GetModuleUsage 函 数。 这 个 函 数 的 返 回 值 会 告 诉 我 们 这 个 应 用 有 几 个不 同 的 实 例。 在 我 们 的 例 子 中， 如 查 询 的 应 用 是MicrosoftWord，该 应 用 是 不 允 许 多 个 实 例 同 时 运 行， 但 象NotePad 这 样 的应 用， 这 些 信 息 对 还 是 非 常 有 用 的。

       激 活 另 一 个应 用

       实 现： 首 先声 明 下 列localexternal 函 数

 Subroutine  BringWindowToTop(int hWnd)  Library "User"Function      uint  GetNextWindow(uint hWnd, int Flag)  Library "user"Function      uint  GetWindowText(uint hWnd, REF string Title, uint Size )Library  "user"Function      uint  ShowWindow(uint  hWnd, int  CmdShow)  Library "user"Function    integer  IsIconic(uint  hWnd)  Library "user"Function    integer  OPenIcon(uint hWnd)  Library  "user"Function    integer  FindWindow(string  ClassName,  string  WindowName)Library  "user"Function    integer  FindWindow(long    ClassName,  string  WindowName)Library  "user"Function    integer  FindWindow(string  ClassName,  long    WindowName)Library  "user"键入下面的一个窗口级函数：fw_make_app_active// 返 回：boolean// 参 数：//string   as_titleboolean	lb_cont = TRUEinteger	li_result, li_sizestring		ls_titleuint		li_handleli_handle = Handle ( this )li_size = Len ( at_title ) + 1
//li_handle = FindWindow ( 0, "Control Panel" )
DO WHILE lb_cont	li_handle = GetNextWindow ( li_handle, 1 )	If li_handle = Handle ( this ) THEN Return FALSE	li_result = GetWindowText ( li_handle, ls_title, li_size )	IF ls_title = as_title THEN lb_cont = FALSELOOP
//ShowWindow ( li_handle, 3 )
IF IsIconic ( li_handle ) > 0 THEN	OpenIcon ( li_handle )ELSE	BringWindowToTop ( li_handle )END IFReturn TRUE

工 作 原 理

       获 得 另 一 个应 用 最 顶 层 窗 口 引 用 的 最 简 单 的 方 法 就 是 用FindWindow 函数 来 查 找。FindWindow 函 数 有 两 个 参 数： 您 要 找 的 窗 口 的类 名 和 窗 口 的 标 题。 注 意， 我 们 在localexternal 函 数 中 用 三种 方 式 声 明 了 这 一 函 数。 这 是 因 为 您 可 以 用null 作 为“ 通 配 符” 分 别 传 递 两 个 参 数。 为 了 传 递null， 您 必 须 将参 数 类 型 定 义 成long 型， 其 值 为0。 所 以 我 们 需 要 为 每 一种 可 能 的 调 用 形 式 定 义 一 个localexternal 函 数。 当 我 们 真正 使 用 这 个 函 数 时，PowerBuilder 自 动 判 断 我 们 要 用 哪 一 种形 式。

       例 如 在 窗 口函 数fw_make_app_active 中， 我 们 可 以 用 这 种 手 段 使Findwindow 函 数搜 索ControlPanel 窗 口。 接 下 来 只 要 将Findwindow 函 数 返 回 的 窗口 句 柄 传 递 给BringWindowToTop 函 数 就 可 以 激 活ControlPanel 窗 口了。

       但 是 这 样 的做 法 有 这 样 两 点 缺 陷：

       您 并 不 总 是知 道 某 个 应 用 的 顶 层 窗 口 的 全 名。 例 如 当 您 使 用MicosotWord，当 前 打 开 的 文 档 的 名 字 也 将 出 现 在 窗 口 的 标 题 上。 因此， 这 种 情 况 下， 寻 找 顶 层 窗 口 需 要 另 一 种 方 法。

       如 果 您 希 望激 活 的 窗 口 正 处 于 最 小 化 状 态，BringWindowToTop 函 数 将 不 能正 常 工 作。

       实 际 上， 上面 提 到 的 第 二 个 问 题 比 较 容 易 解 决。 我 们 加 入IsIconic 函数 判 断 我 们 所 要 激 活 的 窗 口 是 否 最 小 化。 如 果 不 是 最小 化 状 态， 就 使 用BringWindowsToTop 函 数。 如 果 是 最 小 化 状态， 就 用OpenIcon 函 数 来 激 活 该 窗 口。 这 种 方 法 只 假 定 我们 想 以 窗 口 最 小 化 前 的 大 小 及 位 置 显 示 该 窗 口。 我 们也 可 以 用ShoWindow 函 数 来 对 要 显 示 的 其 它 应 用 的 窗 口 施以 更 多 的 控 制。

       本 例 中， 我们 传 送 一 个 参 数 使 被 激 活 窗 口 以 最 大 化 方 式 显 示。 如果 您 想 以 不 同 的 方 式 激 活 窗 口， 请 参 照 下 表 的 参 数 对应：

       0
       隐 藏 窗 口

       1
       以 窗 口 原 来 的 大 小 和 位 置( 如 果当 前 窗 口 处 于 最 大 化 或 最 小 化 状 态) 并 激 活 该 窗 口( 与值 相 同)

       2
       以 最 小 化 方 式 显 示 并 激 活 窗 口

       3
       以 最 大 化 方 式 显 示 并 激 活 窗 口

       4
       以 窗 口 最 近 一 次 的 大 小 和 位 置显 示 但 不 激 活 窗 口

       5
       以 窗 口 最 近 一 次 的 大 小 和 位 置显 示 并 激 活 窗 口

       6
       最 小 化 窗 口 并 在 系 统 列 表 中 激活 顶 层 窗 口

       7
       最 小 化 窗 口 但 不 激 活 窗 口( 保 持当 前 窗 口 激 活)

       8
       以 窗 口 的 当 前 状 态 显 示 但 并 不激 活 它( 保 持 当 前 窗 口 激 活)

       9
       恢 复 窗 口 原 先 的 大 小 和 位 置( 如果 窗 口 处 于 最 小 化 或 最 大 化 状 态) 并 激 活 它 解 决 第 二个 问 题 时， 我 们 声 明 了 另 外 两 个 函 数，GetNextWindow 和GetWindowsText。如 果 我 们 将 一 个 窗 口 句 柄 传 递 给GetNextWindow 函 数， 它 将在 父 窗 口 所 属 的 所 有 子 窗 口 之 间 循 环。 如 果 将 一 个 顶层 窗 口 句 柄 传 递 给 该 函 数， 该 函 数 将 在 所 有 顶 层 窗 口之 间 循 环。 我 们 希 望 得 到 的 是 后 一 种 方 式， 所 以 我 们首 先 要 获 取 自 己 应 用 的 顶 层 窗 口 句 柄。

       当 我 们 在 顶层 窗 口 之 间 循 环 时， 用GetWindowText 函 数 返 回 它 们 的 标 题。这 个 函 数 有 三 个 参 数， 窗 口 句 柄， 一 个 用 以 返 回 标 题的 字 符 串 以 及 返 回 字 符 串 的 最 大 长 度。 我 们 要 好 好 利用 最 后 一 个 参 数， 因 为 我 们 并 不 想 要 匹 配 整 个 窗 口 标题， 而 是 要 匹 配 能 保 证 我 们 发 现 所 要 寻 找 的 窗 口 的 长度。 例 如， 如 果 我 们 将“MicrosoftWord” 传 递 给 这 个 窗 口 函数 时， 这 个 函 数 判 断 文 本 的 长 度 并 将 它 加1， 这 样 只 将我 们 将 要 比 较 的 串 的 长 度 传 递 给 了GetWindowText 函 数， 该函 数 在 顶 层 窗 口 之 间 循 环， 寻 找 以 该 字 符 串 开 头 的 窗口。 如 果 我 们 发 现 了 一 个 匹 配， 就 设 置 结 束 循 环 标志， 退 出 循 环 并 继 续 执 行。 如 果 我 们 没 有 发 现 匹 配，将 在 循 环 到 我 们 自 己 的 应 用 窗 口 时 退 出 循 环。 这 时，我 们 简 单 地 退 出 函 数。