用C＋＋Builder 3制作屏幕保护程序
西 北 工 业 大 学483 信 箱（710072） 郭 志 鹏

----屏 幕 保 护 程 序 是 以scr 为 扩 展 名 的 标 准 Windows 可 执 行 程 序， 在 激 活 控 制 面 板 的 显 示 器 属 性 的“ 屏 幕 保 护 程 序” 页 时， 该 模 块 会 自 动 在Windows 启 动 目 录（Windows 目 录 和 系 统 目 录） 下 查 找 扩 展 名 是scr 的 基 于Windows 的 可 执 行 文 件。 使 用 屏 幕 保 护 程 序， 不 仅 可 以 延 长 显 示 器 的 使 用 寿 命， 还 可 以 保 护 私 人 信 息。

----编 制 屏 幕 保 护 程 序 不 仅 要 涉 及 消 息 的 处 理， 还 要 涉 及 命 令 行 参 数 的 处 理。 在Win32 SDK 文 档 中 描 述 了 编 制 基 于Win32 的 标 准 的 屏 幕 保 护 程 序 所 必 须 遵 守 的 严 格 标 准。 按 照 这 些 标 准， 屏 幕 保 护 程 序 必 须 要 输 出 两 个 函 数：ScreenSaverProc 和ScreenSaverConfigureDialog， 但 是 在Windows 系 统 中 的 很 多 屏 幕 保 护 程 序 并 没 有 遵 循 这 些 标 准( 使 用impdef 或 者tdump 实 用 工 具 查 看 即 可), 并 且 使 用 该 文 档 中 介 绍 的 方 法 编 写 屏 幕 保 护 程 序， 不 仅 要 使 用 资 源 编 辑 器， 并 且 在 链 接 时 还 要 利 用Scrsaver.lib 文 件（ 在C ＋ ＋ Builder 3 环 境 下， 不 能 成 功 连 接）, 不 仅 要 涉 及 消 息 的 处 理， 还 要 涉 及 命 令 行 参 数 的 处 理。

----C ＋ ＋ Builder 3 提 供 了 许 多 类 型 的 应 用 程 序 开 发 模 板， 但 没 有 提 供 开 发 屏 幕 保 护 程 序 的 模 板， 并 且 在 其 在 线 帮 助 中 也 没 有 提 及 如 何 开 发 这 类 应 用 程 序。 经 过 本 人 的 研 究， 找 到 了 用C ＋ ＋ Builder 3 编 制 屏 幕 保 护 程 序 的 方 法。

----在 控 制 面 板 的“ 显 示 器 属 性" 项 的“ 屏 幕 保 护 程 序" 页 中 进 行 设 置 时， 要 遇 到 三 种 类 型 的 命 令 行 参 数， 并 且， 各 种 情 况 下 的 屏 幕 保 护 程 序 的 显 示 结 果 也 各 不 相 同， 一 般 来 讲， 就 需 要 三 种 类 型 的 窗 体。 下 面 将 分 四 步 来 具 体 地 说 明 如 何 编 制 屏 幕 保 护 程 序。

屏 幕 保 护 程 序 的 选 择


----如 果 在 标 题 为“ 屏 幕 保 护 程 序" 的 下 拉 列 表 框 中 选 中 了 某 个 保 护 程 序 时， 系 统 会 自 动 启 动 该 程 序， 这 个 程 序 的 显 示 范 围 是 在 这 个 页 面 上 的 显 示 器 图 形 的 屏 幕 范 围， 同 时， 会 将 两 个 命 令 行 参 数( 一 个 是“/p"； 另 一 个 是 显 示 窗 口 的 句 柄) 传 递 给 这 个 被 选 中 的 程 序。 因 此， 这 类 程 序 首 先 应 该 能 够 处 理 命 令 行 参 数。 在C ＋ ＋ Builder3 中， 与 命 令 行 参 数 处 理 有 关 的 函 数 是：ParamCount() 和ParamStr()， 具 体 的 申 明 方 式 如 下：

---- 1.extern PACKAGE int __fastcall ParamCount(void);

----该 函 数 返 回 命 令 行 参 数 的 个 数， 但 不 包 含 应 用 程 序 本 身。

---- 2.extern PACKAGE AnsiString __fastcall ParamStr(int Index);

----该 函 数 返 回 指 定 索 引 值 的 命 令 行 参 数。 ParamStr(0) 返 回 的 是 应 用 程 序 本 身。

----所 以， 在 这 步 骤 中 的 参 数 判 断 的 语 句 如 下： 

if(UpperCase(ParamStr(1)) == “ －p" 

 || UpperCase(ParamStr(i)) == “/p")

     {

       // add the code in here 

       }

----在 完 成 了 参 数 判 断 后， 就 应 该 对 显 示 窗 口 处 理。 为 能 够 使 程 序 在 显 示 器 图 形 的 屏 幕 区 域 内 显 示， 就 要 重 新 设 置 程 序 的 父 窗 口 和 显 示 区 域。 这 要 涉 及 到 父 窗 口 句 柄 的 获 得 及 父 窗 口 的 设 置， 以 及API 函 数 的 调 用， 这 种 环 境 下 的 父 窗 口 句 柄 就 是 传 递 过 来 的 第 二 个 命 令 行 参 数。 设 置 父 窗 口， 只 需 设 置 窗 体 的ParentWindow 属 性 即 可。 这 段 程 序 如 下： 

    RECT rc;  // Line1

HWND hWnd=(HWND)(atol(ParamStr(2).c_str())); 

 // Line2

    ::GetClientRect(hWnd, ＆rc);  // Line3

    ParentWindow=hWnd;  // Line4

    Left=rc.left; // Line5

    Top=rc.top; // Line6

    Width=rc.right －rc.left; // Line7

    Height=rc.bottom －rc.top; // Line8

----在 上 面 的 程 序 片 段 中， 第2 行 语 句 是 将 传 递 过 来 的 第2 个 参 数 转 换 成 窗 口 句 柄； 第3 行 语 句 利 用 这 个 窗 口 句 柄， 调 用API 函 数 以 获 得 该 窗 口 的 客 户 区 域； 第4 行 语 句 将 选 中 的 屏 幕 保 护 程 序 的 父 窗 口 设 置 为 指 定 的 窗 口； 余 下 的 语 句 是 将 该 程 序 的 窗 口 大 小 设 置 成 副 窗 口 的 客 户 区 大 小。 这 一 程 序 的 位 置 应 该 是 在 窗 体 的OnCreate 事 件 处 理 中。

----需 要 说 明 的 是， 这 种 类 型（ 包 括 第 三 步 介 绍 的 窗 体） 的 窗 体 样 式 应 是：

----FormStyle=fsStayOnTop;

----窗 体 边 界 的 样 式 应 为：

----BorderStyle=bsNone;

----当 然， 这 时 也 不 需 要 鼠 标 图 形， 因 此， 可 以 将 鼠 标 的 形 状 设 为crNone：

----Cursor=crNone;

----单 击“ 显 示 器 属 性" 模 块 的“ 屏 幕 保 护 程 序" 页 面 中 的“ 设 置" 按 钮 时， 系 统 会 启 动 指 定 的 保 护 程 序 的 初 始 值 设 置 对 话 框， 这 时 传 递 过 来 的 命 令 行 参 数 是：“/c" 或“ －c"（ 参 数 的 处 理 与 前 面 介 绍 的 相 同）。 通 过 该 对 话 框， 可 以 设 置 保 护 程 序 的 一 些 初 始 参 数， 比 如 图 形 的 变 化 快 慢 等。 在 这 段 程 序 中， 还 要 涉 及 到 初 始 化 文 件 或 注 册 表 的 读 写， 用 以 记 录 初 始 化 参 数， 便 于 保 护 程 序 启 动 时 使 用。

预 览 及 运 行


----预 览 的 效 果 就 是 屏 幕 保 护 程 序 被 激 活 后 的 显 示。 单 击“ 显 示 器 属 性" 模 块 的“ 屏 幕 保 护 程 序" 页 面 中 的 “ 预 览" 按 钮， 就 可 以 观 察 保 护 程 序 运 行 的 实 际 效 果。 这 时， 系 统 启 动 该 程 序 时 传 递 过 来 的 命 令 行 参 数 是：“/s" 或“ －s"。 对 于 命 令 行 参 数 的 处 理 与 前 面 的 步 骤 相 同， 但 在 这 一 步 中， 还 要 对 几 个 消 息 进 行 处 理， 这 些 消 息 是：WM_MOUSEMOVE，WM_LBUTTONDOWN， WM_MBUTTONDOWN，WM_RBUTTONDOWN，WM_KEYDOWN， WM_ACTIVATE。 对WM_MOUSEMOVE 和WM_ACTIVATE 消 息 的 处 理 形 式 如 下： 

void __fastcall HandleSomeMessage(TMessage ＆Msg)

{

 switch(Msg.Msg)

 {// ......

  case WM_ACTIVATE:

       if(Msg.WParamLo==WA_INACTIVE)

       Close();

       break;

  case WM_MOUSEMOVE:

       if(OldMouseX== －1 ＆ ＆ OldMouseY== －1) 

//In the constructor, OldMouseX

 and OldMouseY must be initialized by －1.

         { OldMouseX = Msg.LParamLo;

           OldMouseY = Msg.LParamHi;

         }

   else if (OldMouseX != 

      Msg.LParamLo || OldMouse!= Msg.LParamHi)

         Close();

         break;

  ......

  }

}

----对 于 其 他 的 消 息 仅 仅 是 调 用Close() 函 数 来 关 闭 应 用 程 序 即 可。 应 用 这 种 消 息 处 理 方 式 时， 必 须 在 类 定 义 时 进 行 消 息 映 射， 不 然 的 话， 就 要 在 相 应 的 消 息 响 应 中 进 行 处 理。

----与 第 一 步 类 似， 在 该 步 骤 中， 也 不 需 要 具 体 的 鼠 标 指 针 的 形 状， 因 此， 将 鼠 标 指 针 设 为crNone：

----Cursor=crNone;

修 改 项 目 源 文 件


----在C ＋ ＋ Builder 3 中， 一 个 窗 体 也 就 是 一 个 类， 换 句 话 说， 具 有 某 些 特 性 的 类 也 就 是 一 个 窗 体， 因 此， 编 制 屏 幕 保 护 程 序 时， 也 不 需 要 什 么 主 窗 体， 同 时， 也 不 用 自 动 创 建 某 些 窗 体 了， 这 时 就 要 修 改 项 目 源 文 件。 下 面 所 列 出 的 程 序 就 是 笔 者 在 编 制 某 屏 幕 保 护 程 序 时 使 用 的 项 目 源 文 件， 供 读 者 参 考。 

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

 CreateMutex(NULL, true, “ScreenSaver");

 if(GetLastError()!=ERROR_ALREADY_EXISTS)

  {

   try

 {

  Application －>Initialize();

  Application －>Title = “ 屏 幕 保 护 程 序 测 试";

  if(UpperCase(ParamStr(1))==

              “/C" || UpperCase(ParamStr(1))==“ －C"

                    ||ParamCount()==0)

     {TScrSaverConfiguerF 

     ＊ScrCfg=new TScrSaverConfiguerF(NULL);

      ScrCfg －>ShowModal();

      delete ScrCfg;

      return 0;

      } // 单 击 “ 设 置" 按 钮

else if(UpperCase(ParamStr(1))==

     “/P"||UpperCase(ParamStr(1))==“ －P")

     {TScrForP ＊ScrFP=new TScrForP(NULL);

      ScrFP －>ShowModal();

      delete ScrFP;

      return 0;

      } // 在“ 屏 幕 保 护 程 序

          " 下 拉 列 表 框 中 选 择 一 个 程 序

else if(UpperCase(ParamStr(1))==

          “/S"||UpperCase(ParamStr(1))==“ －S")

     {TScreenSaveF ＊ScreenSave=new TScreenSaveF(NULL);

      ScreenSave －>ShowModal();

      delete ScreenSave;

      return 0;

      } // 单 击“ 预 览" 按 钮，

            及 运 行 屏 幕 保 护 程 序

    else

     return 1;

    }

   catch (Exception ＆exception)

    {

     Application －>ShowException( ＆exception);

     }

   }

 return 0;

} //the WinMain Function end