ActiveX 控 件 注 册 的几 种 方 法

韩冰

ActiveX 控 件 注 册 的几 种 方 法

% F1 n- Y% ]& F0 L6 G: p/ U! T

6 M& ^" H2 v9 r) x

-ActiveX 控 件 是 一 个 动 态 链 接 库， 是 作 为 基 于COM 服 务 器 进

$ a+ _& k: ^3 w/ A' V" l, `* }- ?, R" ?

行 操 作 的， 并 且 可 以 嵌 入 在 包 容 器 宿 主 应 用 程 序 中，

7 ]6 ` `/ N1 z6 U5 x

ActiveX 控 件 的 前 身 就 是OLE 控 件。 由 于ActiveX 控 件 与 开 发 平

台 无 关， 因 此， 在 一 种 编 程 语 言 上 开 发 的ActiveX 控 件 可

) A, S0 e8 R& L' X. U4 `0 P3 u

以 无 须 作 任 何 修 改， 即 可 在 另 一 种 编 程 语 言 中 使 用， 其

效 果 如 同 使 用 Windows 通 用 控 件 一 样。 如： 在VC ＋ ＋ 中 开

% f7 l4 K" m! r. M

发 的ActiveX 控 件， 不 作 任 何 修 改 即 可 应 用 于VB 中。 由 此 可

见， 通 过 使 用ActiveX 控 件 即 可 实 现 快 速 小 型 的 组 件 重 用

、 代 码 共 享， 从 而 提 高 编 程 效 率。

' r% }6 z/ Y! n. U

----从Internet 下 载 的ActiveX 控 件， 或 从 其 他 途 径 得 到 的

ActiveX 控 件， 用 户 应 该 怎 样 做 才 能 正 确 使 用 呢 ？ 一 般 来

说， 一 个 外 来ActiveX 控 件 要 在Windows 中 被 正 确 使 用， 首 先

% k- c8 J, U" u% U: Y- C3 }& n

必 须 将 控 件 文 件( ＊.OCX) 复 制 到 硬 盘 中， 然 后 将 其 在

# s2 j0 y; F, y6 S

Windows 中 注 册， 未 在 Windows 中 注 册 过 的ActiveX 控 件 是 不 能

使 用 的。 注 册ActiveX 控 件 一 般 来 说 有 三 种 途 径， 适 用 范

& g) g# q1 V( S2 v- [! k+ }

围 不 同， 各 有 各 的 优 点， 下 面 分 别 讨 论。

1 {0 H% n4 a/ i. m9 I: J( Q, A" D

* j2 `0 B# J/ B7 D6 h- g. h) r

一、 使 用Regsvr32.exe 程 序

对ActiveX 控 件 进 行 注 册

0 v1 u7 g1 B: n; |% }0 g! i$ c

----对 于 未 注 册 过 的ActiveX 控 件 可 使 用 此 软 件 对 其 进 行 注

册， 外 来ActiveX 控 件 要 应 用 到 自 己 的 程 序 中 也 必 须 进 行

注 册。 该 文 件 位 于Windows 目 录 的system 子 目 录 下。 使 用 方

法 如 下： 点 击“ 开 始” →“ 运 行”； 在 运 行 对 话 框 中 输 入

1 M5 f$ f% T9 U) o/ f% Y% \

以 下 命 令：

regsvr32 < 文 件 名 > 注 册 一 个ActiveX 控 件

! A: x/ `" j: z# O+ d- s

regsvr32 /u< 文 件 名 > 解 除 某ActiveX 控 件 的 注 册

; e: L6 ^& r& y3 J# g1 I N

! B8 h# q/ ~: f# v/ N i, L

----我 们 使 用 一 些 带ActiveX 控 件 的 应 用 程 序 时， 有 时 会 出

现 不 能 运 行 的 情 况， 这 有 可 能 是 其 自 带ActiveX 控 件 未 注

, [6 @- g5 j0 [0 C; a

册 所 至， 这 时 不 妨 使 用 上 述 命 令 一 试。 另 外，VC ＋ ＋ 使

1 l- Z' X, N% V0 P8 r) K" h

用 者 若 对regsvr32.exe 的 编 码 感 兴 趣 的 话， 可 在VC ＋ ＋ 的 联

: m9 O4 E) \" {

机 帮 助 中 找 到 其 源 代 码。 若 使 用VC ＋ ＋ 6.0， 则 在MSDN 光

7 b4 M) T: h, L

盘 的 \sample\VC98\MFC\controls\regsvr 中。

% J2 q+ f' w( T# Z3 X

二、 使 用 安 装 程 序

& r+ n& p' L7 c$ G! U

制 作 软 件：InstallShield

1 I- X" X# u, S$ X: ?. [2 j

----使 用regsvr32.exe 来 注 册ActiveX 控 件 虽 然 简 单， 但 需 要 用

户 手 工 注 册， 在 不 用 时 还 得 手 工 解 除 注 册， 因 此， 这 对

$ z& s9 [6 l0 [

一 个 应 用 程 序 来 说 并 非 好 的 解 决 方 案。 大 型 应 用 软 件

一 般 都 有 一 个 安 装 程 序， 在 安 装 程 序 中 解 决ActiveX 控 件

注 册 是 较 为 理 想 的 一 种 方 案。 使 用InstallShield 可 以 制 作

) m. V% _; L Q: p% a7 k: c

出 专 业 级 的Setup， 还 可 注 册 其 中 的ActiveX 控 件； 而 且， 在

$ c7 {6 A8 E& s" ~

以 后 携 载 软 件 时， 自 动 注 销 掉 以 前 注 册 的ActiveX 控 件。 方

3 a2 k1 ~6 j& Z+ b1 h

法 如 下：

启 动InstallShield， 使 用Project Wizard 建 立 一 个 新 的 项 目；

( A; e0 }6 i$ p7 ?. y

新 建 一 个“File Group”， 将 需 要 注 册 的ActiveX 控 件 文 件 放 入

6 L* b9 F' e/ T3 u5 ^

此“File Group” 中；

) K. t$ r8 c: E! k) M8 I' O! e/ [

将 上 述“File Group” 的“Self －Registered” 属 性 设 置 成“Yes”。

2 r/ g5 |$ Y7 y8 z/ m

----上 述 步 骤 仅 为 制 作Setup 中 设 置 自 动 注 册 ActiveX 控 件 几

: `% b1 z1 d D( ~7 Y7 s( Y$ @

步， 至 于 使 用InstallShield 怎 样 制 作 一 个 完 整 的Setup 不 在

本 文 讨 论 范 围 之 中, 请 读 者 自 己 参 看 有 关 书 籍。

三、 在 应 用 程 序 中

加 入 注 册 代 码

; l# }( T; V. w# V- g% X

2 Z }6 @/ |- f! i0 m

----对 于 小 型 程 序 不 宜 采 取 第 二 种 方 法， 较 好 的 方 法 是

0 a6 B5 ]8 V% }: ?7 b

在 程 序 中 嵌 入 注 册 代 码， 实 现 应 用 程 序 自 注 册。 其 编 程

0 X' L, c6 \' C$ @8 s" j7 _

方 法 是：

使 用Windows API 函 数LoadLibrary 载 入ActiveX 控 件；

9 ~+ a) [7 l- [! ~; T; [( _

使 用GetProcAddress 函 数 获 取ActiveX 控 件 中 注 册 函 数

3 y9 w1 w% _) h8 J$ R

DllRegisterServer （ 注 销 函 数 为DllUnregisterServer） 指 针；

调 用 注 册 函 数DllRegisterServer（ 或 注 销 函 数

. E8 g2 h# G: q) O8 E; ~/ V

DllUnregisterServer）。

----下 面 以VC ＋ ＋ 6.0 编 写 的RegActivex 程 序 为 例， 介 绍 怎 样

" c; ~1 `7 V! B( M( N. |+ `0 ]% t' N6 L

在 程 序 中 自 动 注 册（ 注 销）ActiveX 控 件。RegActivex 的 主 体

4 f9 E! X2 c+ V: ]" q, |" Y

框 架 由VC ＋ ＋ 6.0 的AppWizard 自 动 产 生， 在 其 基 础 上 增 加 两

个 菜 单 项：“ 注 册ActiveX 控 件”、“ 注 销ActiveX 控 件”。 当 选

+ e- w; ^/ S0 X* q5 u: X$ l

择“ 注 册 ActiveX 控 件” 菜 单 时， 将 对 控 件toweratl.ocx（ 一 个

汉 诺 游 戏） 进 行 注 册； 当 选 择“ 注 销ActiveX 控 件” 菜 单 时

" h) O: b. q$ H. p! j* N s

， 将 解 除 控 件toweratl.ocx 的 注 册。

1 l4 _/ }8 s. S/ |& u3 c6 ^

使 用VC ＋ ＋ 6.0 建 立 一 个 单 文 档 的 应 用 程 序RegActivex， 其

他 项 目 接 受 默 认 设 置；

. T% o% O( D# v1 l, p

给 应 用 程 序 增 加 两 个 菜 单 项：“ 注 册ActiveX 控 件”、“ 注 销

ActiveX 控 件”， 步 骤 如 下：

8 m* X. p0 X+ _" Z; Q& S$ h- e

单 击VC ＋ ＋ 6.0 左 边 窗 口 的“ResoureView”， 双 击MENU 项 目 下

9 u* Z% B8 k `& s2 K$ \' K

的IDR_MAINFRAME 以 打 开 菜 单 编 辑 器；

在 菜 单 编 辑 器 中， 加 入 一 个 主 菜 单“ 注 册”， 在“ 注 册”

6 c+ a+ Z: M" [0 Y3 n, C; e

主 菜 单 下 加 入 两 个 菜 单 项：“ 注 册ActiveX 控 件”、“ 注 销

ActiveX 控 件”；

) T% T; c, }+ w; p v! `

给 新 建 的 菜 单 项 “ 注 册ActiveX 控 件” 和“ 注 销ActiveX 控 件”

增 加 响 应 函 数：

2 [5 Z8 Q Q' t, k/ i; m

在 资 源 编 辑 器 中， 双 击MENU 中 的IDR_MAINFRAME 打 开 菜 单 编 辑

器， 单 击“ 注 册ActiveX 控 件”, 按Ctrl ＋W 打 开MFC Class Wizard;

2 V, [5 Q4 D5 n1 a( u7 U0 ]) w/ \

双 击Messages 框 中 的COMMAND, 给“ 注 册ActiveX 控 件” 菜 单 项 增

加 响 应 函 数OnRegisterReg(), 单 击 右 边“Edit” 按 钮, 给

OnRegisterReg() 函 数 增 加 如 下 代 码：

P5 A+ ^; {$ }8 h/ t% @5 z

void CMainFrame::OnRegisterReg()

{

/ v9 z& x, ^: I5 a% ~

//ActiveX 控 件 的 路 径 及 文 件 名

LPCTSTR pszDllName=“toweratl.ocx";

// 装 载ActiveX 控 件

" m5 S* z; Q- \) m

HINSTANCE hLib = LoadLibrary(pszDllName);

8 u$ Q2 }2 Y- q$ t# t

if (hLib < (HINSTANCE)HINSTANCE_ERROR)

{

MessageBox(“ 不 能 载 入Dll 文 件!",

“ 结 果",MB_OK);

( @. K# h! k1 i2 y

return;

}

// 获 取 注 册 函 数DllRegisterServer 地 址

FARPROC lpDllEntryPoint;

. j( A ^' S/ q* ?7 A! {

lpDllEntryPoint = GetProcAddress

E1 t* g3 Z4 [- g3 D* S

(hLib,_T(“DllRegisterServer"));

// 调 用 注 册 函 数DllRegisterServer

if(lpDllEntryPoint!=NULL)

$ ~& R) o" ^, K0 z6 [0 z0 b

{

if(FAILED(( ＊lpDllEntryPoint)()))

% P# d3 y* p; R4 X, o

{

- F- n( R6 n2 v1 F, O2 z7 }

MessageBox(“ 调 用DllRegisterServer 失 败 ！",

“ 结 果",MB_OK);

j4 o1 S+ Y# k, {0 q% Q, H4 V( r

FreeLibrary(hLib);

return;

* i+ H( V- `9 m5 o' ?. K

};

MessageBox(“ 注 册 成 功",“ 结 果",MB_OK);

9 \+ i2 B3 k4 Y3 @; {) K

}

else

& j8 j$ Z' X. N

MessageBox(“ 调 用DllRegisterServer 失 败 ！",

& L9 z4 U5 m: W" O) a, y' }% L

“ 结 果",MB_OK);

, H' n% P N0 j1 L6 W5 v2 |

}

0 X5 R/ ^3 P& r# b+ H

“ 注 销ActiveX 控 件” 菜 单 项 响 应 函 数 的 编 写 方 法 同 上， 代

5 C: ?: \0 l/ K' l: G

码 也 相 似， 只 是 将 “lpDllEntryPoint=GetProcAddress(hLib,_T(“

DllRegisterServer"));” 改 成：

3 x: T& `( @2 O# z9 r9 _# n

lpDllEntryPoint = GetProcAddress(hLib,_T

4 B: C+ y: k( Q

(“DllUnregisterServer"))。

6 e r9 o$ N. ?# R

编 译 联 接 上 述 程 序， 即 可 得 一 个 可 执 行 文 件。 另 需 注 意

, S- ?4 L3 ]$ Y, S4 N

的 是： 应 将ActiveX 控 件 文 件toweratl.ocx 复 制 到Windows 的system

目 录 下。 控 件 文 件toweratl.ocx 在 微 软 出 版 的《Visual C ＋ ＋

" e/ R# |; k: X6 h4 l& A# g- M6 E

6.0 程 序 员 指 南》 所 附 光 盘 中 可 以 找 到。

; Q0 \- `$ b* {0 B! I6 Q5 \

测 试 上 述 程 序： 运 行《Visual C ＋ ＋ 6.0 程 序 员 指 南》 所 附

光 盘 中 的game2 程 序， 若 使 用RegActivex 注 册 了toweratl.ocx 控 件

4 D: g5 H* l5 }

， 则 该 程 序 可 以 正 常 运 行； 若 使 用RegActivex 注 销 了

* t4 H# K# C! P% _4 Q

toweratl.ocx 控 件 则game2 不 能 运 行。