ActiveX 控 件 注 册 的几 种 方 法

韩冰

ActiveX 控 件 注 册 的几 种 方 法

4 F# Q3 x4 I! z( W) p# {/ p

! b2 f$ c1 ^2 c. V

% I# K( @+ Y% a9 B

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

1 W H6 |" j- X1 H# {: P% h8 U

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

2 ]# b+ G2 B" f9 ^: N( o, E

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

8 ~0 Y6 k" E. I) {' W" y

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

; b; v2 L! S1 h" ]

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

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

* W5 c! r+ ^6 ]$ [, j

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

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

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

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

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

2 K5 d Z0 f' h" _6 U

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

8 \7 u0 b6 S; K5 n3 o1 G

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

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

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

0 \. g. B7 b8 ]% P5 v) h

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

一、 使 用Regsvr32.exe 程 序

% w7 \# W4 M) r! v

对ActiveX 控 件 进 行 注 册

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

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

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

" A9 d Q* e& Y) g" V r4 w

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

$ W9 t" b) r7 S# ^- x: D% Y. c

以 下 命 令：

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

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

9 l! s; x5 r# _7 o0 l

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

f% ?) m3 Z2 T

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

3 I n/ ]. J& H: |

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

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

$ a) ^) h$ b' r0 H4 [) K7 m

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

3 w+ ]6 i M9 y, ?

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

, \+ Z1 G: g: m! l. k

二、 使 用 安 装 程 序

5 _) z/ {- r3 y' u9 @

制 作 软 件：InstallShield

9 {8 ~. ?$ c: t+ f7 h: Q7 p; n

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

- s( J6 J) a) i9 ~ r

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

) h3 i6 J7 b5 V$ y

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

' Y6 T/ y& E. F# }# {5 k

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

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

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

9 O w V1 e N# q' O5 v

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

$ m) F4 d4 J& S2 u+ G f

法 如 下：

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

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

2 P7 a! R+ R7 k ^2 ^

此“File Group” 中；

) ?& B' V" C* B8 |$ m8 O& U

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

9 G9 A2 g+ ]' j

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

( }2 ?! T% G9 g

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

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

+ f& f2 S- B$ G$ o, f+ s

0 {* G9 C1 Z: |5 m5 g6 J

三、 在 应 用 程 序 中

加 入 注 册 代 码

3 U% I/ p" E8 Z. p" j4 ^! X

- V# w6 t [; b9 v T

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

R2 F" h# W) f3 [- U/ S

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

方 法 是：

: Q; M/ z9 W( k" {$ K3 L j# L

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

2 M6 ^4 b* g- A2 p/ V( m

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

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

, q1 ~- g; N) y$ z/ c& `

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

& n( D1 G$ |. U% t$ D

DllUnregisterServer）。

+ {1 X4 L4 y% ~% s! R: A4 B) I

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

% c" Q2 C, L2 D. _1 J

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

( U9 ?' Y) J* q2 \' D

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

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

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

1 T( f7 }% T7 @

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

) q7 r6 M* Y7 v0 \: b6 O1 A( Z

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

( J/ L' U1 L4 B

: s, G- }, M0 ^

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

; D+ u2 m/ ?! U2 l6 c9 U4 S

他 项 目 接 受 默 认 设 置；

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

$ Y) `* r0 f% w4 m& N# ~

ActiveX 控 件”， 步 骤 如 下：

" g% n1 j0 G* |7 M) ]. l

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

* E6 H. D4 u! ~8 \

的IDR_MAINFRAME 以 打 开 菜 单 编 辑 器；

! y' p# X" o8 k2 K

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

- v) g3 A6 m. D- `& p+ ^

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

w# J" f5 H7 o* a

ActiveX 控 件”；

- I+ W1 a' K! k1 N, Y6 j* Y% \8 S

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

) U/ X2 g. t6 t( u- h

增 加 响 应 函 数：

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

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

- o; x9 S" l* b6 t' T

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

8 U- I( l' A! j7 W) e( O

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

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

+ v' c/ f) k; t2 C, ?1 [

void CMainFrame::OnRegisterReg()

{

1 u6 H, \7 ^% Z% U' _6 J

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

) j) m) U+ v2 ~1 e: m: M

LPCTSTR pszDllName=“toweratl.ocx";

+ o+ w) F9 E4 X. T) a

// 装 载ActiveX 控 件

' q0 D! E4 r+ C7 F1 _3 k- Y

HINSTANCE hLib = LoadLibrary(pszDllName);

9 _9 G$ r+ P$ p4 J7 e( h) f% h( T

if (hLib < (HINSTANCE)HINSTANCE_ERROR)

; U7 `- N I8 T4 e7 _5 A( k7 o1 I

{

5 u5 X5 p3 S) ?! j/ a

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

“ 结 果",MB_OK);

5 e) U8 J. ]( o- G; y, Y3 o

return;

% R5 e2 j9 W: _+ T+ B3 L, k

}

$ I8 h+ m* N3 ~

// 获 取 注 册 函 数DllRegisterServer 地 址

0 F- r% _, f+ O9 f3 x/ w) s$ u5 v& t( ]

FARPROC lpDllEntryPoint;

: \7 r' D" V5 y

lpDllEntryPoint = GetProcAddress

(hLib,_T(“DllRegisterServer"));

// 调 用 注 册 函 数DllRegisterServer

if(lpDllEntryPoint!=NULL)

{

: P- L" u: {) G9 \$ ?+ V# [3 O

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

! L$ Q5 u: N7 A; e

{

+ D' @ Y( G( _& p

MessageBox(“ 调 用DllRegisterServer 失 败 ！",

. d9 t0 E/ s- C8 {9 L# y* F1 [

“ 结 果",MB_OK);

FreeLibrary(hLib);

return;

};

( S S+ M1 V% L* q2 G) y e. n

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

}

/ D8 L4 I U4 z7 A) [6 G# e

else

' Z6 M# i: S& F% T. W1 q# U# D

MessageBox(“ 调 用DllRegisterServer 失 败 ！",

! u4 o4 S- W: a( N

“ 结 果",MB_OK);

7 r+ |& s, E1 w$ c& Y$ {

}

0 \# H& R0 B- U- V

/ H9 d+ [! C: y4 |( v4 s

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

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

DllRegisterServer"));” 改 成：

lpDllEntryPoint = GetProcAddress(hLib,_T

(“DllUnregisterServer"))。

3 K- @5 q* A' r7 L

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

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

/ `" e. i( S1 p! A' ?# V/ \2 t

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

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

# l* v3 N" f/ R$ e) H8 C) F3 Q6 u" U, o

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

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

5 [" [3 s2 [3 ]. d) k, ]

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

5 b2 K$ x8 F; m A

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