INNO 补丁制作技术

admin

Patch 属于专为NSIS开发的补丁插件，通过本人开发的调用插件 callvpatch.dll 进行调用。在 INNO 中得到很好的应用。（注意：你可以在 VPatch 的官方网站“http://www.tibed.net/vpatch/”得到源代码，从而编译成一个适合在 INNO 中直接利用的 DLL，这里我为了通用性跟方便性，使用了NSIS通用调用插件，方便以后随时在NSIS的安装包中得到 VPatch 的已编译的 DLL）

以下是在本例子中的练习步骤，通过这个练习，你将会领略到 VPatch 在补丁安装程序方面的巨大作用。

VPatch(DIR)
　　|　　　|-- EnglishAppSetup(DIR)            
　　|　　　|　　　|---- Example1.iss            --英文版软件安装脚本
　　|　　　|　　　|---- MyProg.exe            --英文版软件主程序
　　|　　　|　　　|---- MyProg.hlp                --英文版软件帮助
　　|　　　|　　　|---- Readme.txt            --英文版软件自读文件
　　|　　　|　　　|---- English.isl                --英文版软件安装程序英文界面语言文件
　　|　　　|
　　|　　　|
　　|　　　|-- ChineseApp(DIR)
　　|　　　|　　　|---- MyProg.exe            --汉化版软件中文主程序
　　|　　　|　　　|---- MyProg.hlp                --汉化版软件中文帮助
　　|　　　|　　　|---- Readme.txt            --汉化版软件中文自读文件
　　|　　　|
　　|　　　|
　　|　　　|-- PatchSetup(DIR)
　　|　　　　　　　　　|---- callvpatch.dll            --我编写的调用 vpatch.dll 的中间插件
　　|　　　　　　　　　|---- Patch.iss            --补丁安装程序脚本
　　|　　　　　　　　　|---- VPatch.dll            --NSIS 补丁插件
　　|
　　|
　　|---- GenPat.exe　　　　　　　　　　　　　　　　　　　　　　--补丁文件生成工具
　　|---- Readme.txt　　　　　　　　　　　　　　　　　　　　　　--你正在看的本文件
　　|---- VPatch.html　　　　　　　　　　　　　　　　　　　　　　--VPatch 概述

1. 目录下的 EnglishAppSetup 里面是一个英文版例子的安装程序，你需要自己编译成安装程序进行安装。

2. 接着我们安装第一步产生的英文版安装程序，……，好了，现在我们已经安装了一个英文版程序在你的电脑中了。

3. 目录下的 ChineseApp 里面是汉化好的文件，这里的汉化版软件不会直接打包进安装程序的，这只是用来生成补丁文件时用的。

4. 好，现在看看补丁的生成。VPatch 有一个生成补丁的程序，GenPat.exe (可在 NSIS\Bin 目录下找到)
   关于 GenPat.exe 的详细使用方法请看 VPatch.html 文档。

   命令行生成补丁：
   进入 VPatch 目录，输入如下命令：

GenPat "EnglishAppSetup\MyProg.exe" "ChineseApp\MyProg_cn.exe" "PatchSetup\MyPatch.dat"
     GenPat "EnglishAppSetup\MyProg.hlp" "ChineseApp\MyProg_cn.hlp" "PatchSetup\MyPatch.dat"
     GenPat "EnglishAppSetup\Readme.txt" "ChineseApp\Readme_cn.txt" "PatchSetup\MyPatch.dat"

   注意：以上全部命令连续执行，GenPat 会自动把所有这些文件的补丁合成在 MyPatch.dat 中。

5. 如无意外 MyPatch.dat 会在 PatchSetup 目录中产生，补丁生成后，进行下一步的补丁程序安装制作了。

6. 脚本如下，功能包含了自动检测以前的安装路径，自动备份原文件。

1. ; -- Example1.iss --
   
2. 
   
3. ; 补丁安装程序制作脚本
   
4. ; 脚本编写：restools （http://restools.yeah.net）
   
5. 
   
6. [Setup]
   
7. AppName=Test Program
   
8. AppVerName=Test Program version 1.5
   
9. UsePreviousAppDir=yes
   
10. DefaultDirName={pf}\My Program
    
11. Uninstallable=false
    
12. Compression=lzma
    
13. SolidCompression=yes
    
14. OutputDir=.
    
15. 
    
16. [Files]
    
17. Source: "callvpatch.dll"; Flags: dontcopy
    
18. Source: "VPatch.dll"; Flags: dontcopy
    
19. Source: "MyPatch.dat"; Flags: dontcopy
    
20. 
    
21. [code]
    
22. const
    
23.   BackupDir = 'PatchBackup';
    
24.   PatchFile = 'MyPatch.dat';
    
25.   
    
26. function vpatch(parentwnd: Integer; pluginname,funcname,param1,param2,param3: PChar): Integer;
    
27. external 'vpatch@files:callvpatch.dll stdcall';
    
28. 
    
29. function PatchFileFunc(FileName: String): Integer;
    
30. begin        
    
31.   Result := vpatch(0,ExpandConstant('{tmp}\VPatch.dll'),'vpatchfile',ExpandConstant('{tmp}\'+PatchFile),
    
32.        ExpandConstant('{app}\'+BackupDir+'\'+FileName),ExpandConstant('{app}\'+FileName));
    
33.   // Result :
    
34.   // 0 = 成功
    
35.   // 1 = 失败
    
36. end;
    
37. 
    
38. procedure BackupFile(FileName: String);
    
39. begin
    
40.   if not FileExists(ExpandConstant('{app}\'+BackupDir+'\'+Filename)) then
    
41.     FileCopy(ExpandConstant('{app}\'+Filename),ExpandConstant('{app}\'+BackupDir+'\'+Filename),True);
    
42. end;
    
43. 
    
44. procedure RestoreFile(FileName: String);
    
45. begin
    
46.   FileCopy(ExpandConstant('{app}\'+BackupDir+'\'+Filename),ExpandConstant('{app}\'+Filename),False);
    
47.   DeleteFile(ExpandConstant('{app}\'+BackupDir+'\'+Filename));
    
48. end;
    
49. 
    
50. procedure InitializeWizard();
    
51. begin
    
52.   ExtractTemporaryFile('VPatch.dll');
    
53.   ExtractTemporaryFile('MyPatch.dat');
    
54. end;
    
55. 
    
56. function NextButtonClick(CurPageID: Integer): Boolean;
    
57. begin
    
58.   if CurPageID = wpSelectDir then
    
59.     Result := FileExists(ExpandConstant('{app}\MyProg.exe'))
    
60.   else
    
61.     Result := True;
    
62.   if not Result then
    
63.     MsgBox('你选择的目录没有需要补丁的程序，请选择正确的目录！', mbInformation, MB_OK);
    
64. end;
    
65. 
    
66. procedure CurPageChanged(CurPageID: Integer);
    
67. begin
    
68.   if CurPageID = wpInstalling then
    
69.   begin
    
70.     CreateDir(ExpandConstant('{app}\'+BackupDir));
    
71.    
    
72.     BackupFile('MyProg.exe');
    
73.     if PatchFileFunc('MyProg.exe') = 1 then
    
74.       RestoreFile('MyProg.exe')
    
75.     WizardForm.PROGRESSGAUGE.POSITION := 33;
    
76.    
    
77.     BackupFile('MyProg.hlp');
    
78.     if PatchFileFunc('MyProg.hlp') = 1 then
    
79.       RestoreFile('MyProg.hlp')
    
80.     WizardForm.PROGRESSGAUGE.POSITION := 66;
    
81.    
    
82.     BackupFile('Readme.txt');
    
83.     if PatchFileFunc('Readme.txt') = 1 then
    
84.       RestoreFile('Readme.txt')
    
85.     WizardForm.PROGRESSGAUGE.POSITION := 100;
    
86.   end;
    
87. end;

复制代码