自动注册MSComm控件

    MSComm通信控件具有丰富的与串口通信密切相关的属性及事件，提供了一系列标准通信命令的接口，可以用它创建全双工的、事件驱动的、高效实用的通信程序。这里将介绍如何把用MSComm这个ActiveX控件制作的Delphi程序运行在没有注册安装该控件的机器上。

    一、发布程序时可以用安装程序，我们这里不介绍，只谈谈如何在程序运行时注册安装MSComm控件。

    二、程序运行时自动注册

    完整程序如下：

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls, Registry, shellapi; 
9. type
10.   TForm1 = class(TForm)
11.     Button1: TButton;
12.     procedure FormCreate(Sender: TObject);
13.     procedure Button1Click(Sender: TObject);
14.   private
15.     { Private declarations }
16.   public
17.     { Public declarations }
18.   end;
20. var
21.   Form1: TForm1;
23. function InspectRegedit(): boolean;//检查注册表是否注册
24. function InspectControl(): boolean;//检查文件和控件是否复制
25. procedure CopyMSCommFile();//复制文件进系统文件夹
26. function RegisterMSComm(): boolean;//向注册表中写注册信息
28. implementation
30. {$R *.dfm}
32. function RegisterMSComm(): boolean;//向注册表中写注册信息
33. Var
34.   rs: Boolean;
35.   Reg: TRegistry;//uses Registry
36. begin
37.   //try
38.     rs:=false;
39.     Reg:=TRegistry.Create;
40.     Reg.RootKey:=HKEY_CLASSES_ROOT;//定位到注册表根键
41.     if Reg.OpenKey('/Licenses/4250E830-6AC2-11cf-8ADB-00AA00C00905', true) then
42.     //尝试打开MSComm注册表项，如果不存在则创建该表项
43.     begin
44.       //写注册内容
45.       Reg.WriteString('', 'kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun');
46.     end;
47.   //finally
48.     Reg.CloseKey;//关闭定位的注册表根键
49.     Reg.Free;//释放对象
50.     Result:=rs;
51.   //end;
52. end;
54. procedure CopyMSCommFile();//复制文件进系统文件夹
55. Var
56.   S_Path: Array [0..255] of Char;
57.   sp: String;
58. begin
59.   GetSystemDirectory(S_Path, 255);//系统文件夹路径
60.   sp:=Trim(S_Path);
61.   {copyfile(源文件地址,目标地址,是否覆盖);}
62.   if Not(FileExists(sp + '/Mscomm.reg')) then //复制Mscomm.srg
63.   begin
64.     CopyFile(PChar('./MSComm控件/Mscomm.reg'), PChar(sp + '/Mscomm.reg'), false);
65.   end;
66.   if Not(FileExists(sp + '/Mscomm32.ocx')) then //复制Mscomm32.ocx
67.   begin
68.     CopyFile(PChar('./MSComm控件/Mscomm32.ocx'), PChar(sp + '/Mscomm32.ocx'), false);
69.   end;
70.   if Not(FileExists(sp + '/Mscomm32.dep')) then //复制Mscomm32.dep
71.   begin
72.     CopyFile(PChar('./MSComm控件/Mscomm32.dep'), PChar(sp + '/Mscomm32.dep'), false);
73.   end;
74.   //注册该Mscomm32.ocx控件
75.   winexec(pchar('command.com   /c   regsvr32   ' + sp + '/Mscomm32.ocx'), sw_hide); //uses shellapi
76. end;
78. function InspectControl():boolean;//检查文件和控件是否复制
79. Var
80.   rs: Boolean;
81.   S_Path: Array [0..255] of Char;
82.   sp: String;
83. begin
84.   try
85.     rs:=false;
86.     GetSystemDirectory(S_Path, 255);//系统文件夹路径
87.      sp:=Trim(S_Path);
88.     if (FileExists(sp + '/Mscomm.reg')) And //判断当前目录下是否有Mscomm.srg
89.        (FileExists(sp + '/Mscomm32.ocx')) And //判断当前目录下是否有Mscomm32.ocx
90.        (FileExists(sp + '/Mscomm32.dep')) then //判断当前目录下是否有Mscomm32.dep
91.     begin
92.       rs:=true;
93.     end;
94.   finally
95.     Result:=rs;
96.   end;
97. end;
99. function InspectRegedit():boolean;//检查注册表是否注册
100. Var
101.   rs: Boolean;
102.   Reg: TRegistry;//uses Registry
103. begin
104.   try
105.     rs:=false;
106.     Reg:=TRegistry.Create;
107.     Reg.RootKey:=HKEY_CLASSES_ROOT;//定位到注册表根键
108.     if Reg.OpenKey('/Licenses/4250E830-6AC2-11cf-8ADB-00AA00C00905', false) then
109.     //尝试打开MSComm注册表项
110.       begin
111.         if Reg.ReadString('') = 'kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun' then
112.         //注册内容满足注册条件
113.         begin
114.           rs:=true;
115.         end;
116.       end
117.     else
118.       begin
119.         Application.MessageBox('MSComm尚未在注册表中登记。', '提示', MB_OK);
120.       end;
121.   finally
122.     Reg.CloseKey;//关闭定位的注册表根键
123.     Reg.Free;//释放对象
124.     Result:=rs;
125.   end;
126. end;
128. procedure TForm1.FormCreate(Sender: TObject);
129. begin
130.   Form1.Caption:=Application.Title;
131. end;
133. procedure TForm1.Button1Click(Sender: TObject);
134. begin
135.   if (Not Unit1.InspectControl) Or (Not Unit1.InspectControl) then
136.     begin
137.       if Application.MessageBox('MSComm尚未注册，请问需要自动注册安装吗？', '提示', MB_YesNo+MB_ICONQUESTION) = IDYes then
138.       begin
139.         Unit1.CopyMSCommFile;//复制注册文件进系统文件夹
140.         Unit1.RegisterMSComm;//登记注册表信息
141.       end;
142.     end
143.   else
144.     begin
145.       Application.MessageBox('MSComm已经注册不需要重复注册。', '提示', MB_OK+MB_ICONEXCLAMATION);
146.     end;
147. end;
149. end.

程序运行时如图：