用 Delphi 編寫可自動升級的程式

bestlong

杨超

在编制了一个应用程序后的维护阶段，我们会面临给应用程序升级的工作.无疑，手工升级的工作是十分繁琐的，你可能会需要到用户的机器上去更新文件.可是，如果能编一个自动升级程序，放在网络上，让用户下载，只需执行一下就完成升级工作，不是很方便吗？其实，用Delphi可以很方便地编制出这样一个的程序.

以下是我们的例子，设我们已经有一个应用程序 This.exe，要对它升级，用来升级的程序为 Upgrade.exe.

1. This 的工程文件框架

1. program This;
   
2. 
   
3. uses SysUtils, Windows, Forms;
   
4. 
   
5. //我们将它写入代码中，因为这在Delphi的工程文件中是没有自动生成的.“…”部分是你创建的窗体部分
   
6. 
   
7. var
   
8.   Fn : String;
   
9.   TSI : TStartupInfo;
   
10.   TPI : TProcessInformation;
    
11. 
    
12. {$R *.RES}
    
13. 
    
14. begin
    
15.   //"升级程序"使用 FileAge 来检查原来应用程序的建立时间，如果检测到的是旧版本，则提示升级:
    
16. 
    
17. if FileAge(‘SomeServerSomeDirthis.exe‘) 〉 FileAge(ParamStr(0)) then
    
18.   if Application.MessageBox('这是一个更新版本的THIS.EXE.' + #13
    
19.     '你要得到新版本的升级文件吗？', 'Upgrade Time!', 1) = 1 then
    
20.   begin
    
21.     {运行升级程序时，升级程序应与原主程序this.exe在同一目录下.如果当它启动时，这个版本主程序应该退出，但要保证它不会删除任何文件，因为此时Application.Initialize还没有被调用.代码如下:}
    
22. 
    
23.     Fn:= ExtractFilePath(ParamStr(0))+‘UpgradeThis.exe‘;
    
24.     FillChar(TSI, SizeOf(TSI), 0);
    
25.     TSI.CB := SizeOf(TSI);
    
26. 
    
27.     IF CreateProcess (PChar(Fn), NIL, NIL, NIL, False, DETACHED_PROCESS, NIL, NIL, TSI, TPI) then
    
28.       exit
    
29. 
    
30.       {但是，如果“升级程序”由于某些原因没有运行，我们此时应该告诉用户，他能通过其他方法得到一个更新的程序版本，这时我们依然退出主程序以便用户升级.如果必要的话，也可以继续装入并运行旧版本.}
    
31. 
    
32.     else
    
33.     begin
    
34.       messagebeep(0);
    
35.       Application.MessageBox(‘不能完成文件拷贝.‘+‘ ‘ 请手工拷贝！.‘, ‘Copy Error!‘,1);
    
36.       Exit;
    
37.     end;
    
38.   end;
    
39.   Application.Initialize;
    
40.   Application.Title := ‘This‘;
    
41.   Application.HelpFile := ‘This.hlp‘;
    
42.   {autocreate forms, etc.}
    
43.   Application.Run;
    
44. end.

複製代碼

如果自动升级程序是一个控制台程序，那么一定要保证正确的控制台程序连接选项设置.

1. program Upgrade;
   
2. 
   
3. uses Forms, SysUtils, Windows;
   
4. 
   
5. var
   
6.   Fn : String;
   
7.   TSI : TStartupInfo;
   
8.   TPI : TProcessInformation;
   
9. {$R *.RES}
   
10. begin
    
11. 
    
12.   // 用CopyFile来拷贝新版本的文件，同FileAge一样，它不考虑标准命名格式的路径和文件名.
    
13.   if CopyFile(‘SomeServerSomeDirthis.exe‘, PChar(ExtractFilePath(ParamStr(0))+‘this.exe‘),False) then
    
14.   begin
    
15.     {一旦这些新版本的文件被拷贝到系统中，它就应该能够运行了，而且也没有理由不运行.所以，这里基本上不需要加入出错检测的代码.}
    
16.     //那么，例子中使它运行并简单处理错误的代码如下:
    
17.     Fn := ExtractFilePath(ParamStr(0)) + 'this.exe';
    
18.     FillChar(TSI, SizeOf(TSI), 0);
    
19.     TSI.CB := SizeOf(TSI);
    
20.     CreateProcess(PChar(Fn), NIL, NIL, NIL, False, DETACHED—PROCESS, NIL, NIL, TSI, TPI);
    
21.   end
    
22.   else  Application.MessageBox('不能拷贝文件 THIS.EXE', 'Error!', mb_OK);
    
23. end.

複製代碼

需要注意的是，在这些用来升级程序的代码中，并没有用到任何Application.Initialize和Application.Run.这些方法同样可以被引用来作检查新版本的帮助文件(用GetWindowsDir或GetWindowsDirectory并把“Help”加入到用来升级的程序中)或用来检测“升级程序”是否是新的版本.

上面只是从文件的更新角度说明了编制“升级程序”的方法，但在很多情况中升级一个程序甚至要修改注册表或各种INI的文件。
这些在 Delphi 中是比较容易实现的，有兴趣的朋友可以参照一些资料来加入实现这些功能的代码.