Inno Setup多语言版本

Share

1. ; 安装程序制作脚本
   
2. ; 每次打包要更改: [Setup]/OutputBaseFilename, #Include 包含文件。
   
3. ; 增加语言包之后只需要修改 ISS_EN文件。
   
4. 
   
5. [Setup]
   
6. AppName= xxx
   
7. VersionInfoDescription = xxx
   
8. DefaultDirName= {code:myInstallPath}
   
9. DisableProgramGroupPage= yes
   
10. LicenseFile= License.txt
    
11. UninstallDisplayIcon= {app}\xxx
    
12. OutputDir= D:\
    
13. PrivilegesRequired = admin
    
14. 
    
15. ; 每次发布时需修改的文本 开始 <<<<<<<<<<<<<<
    
16. AppVerName= xxx
    
17. VersionInfoVersion = 1.2.3.4
    
18. 
    
19. ; #include "ISS_EN.txt"
    
20. #include "ISS_CN.txt"
    
21. ; #include "ISS_TW.txt"
    
22. 
    
23. 
    
24. ; 每次发布时需修改的文本 结束 >>>>>>>>>>>>>>
    
25. 
    
26. Source: "License.txt";        DestDir: "{app}"
    
27. Source: "xxx.exe";      DestDir: "{app}"; Flags:ignoreversion
    
28. Source: "service\a.exe"; DestDir: "{app}"; check: TestService
    
29. 
    
30. [Run]
    
31. ; 英文 ===============
    
32. Filename: "{app}\xxx.exe"; Description:"&Launch xxx";   Flags:postinstall nowait skipifsilent; Check: GetSysLang_EN
    
33. Filename: "hh.exe"; Parameters:"{app}\xxx.chm::/QuickStart.htm"; Description:"&Read Quick Start Guide now"; Flags:postinstall nowait skipifsilent unchecked; Check: GetSysLang_EN
    
34. ; 中文 ===============
    
35. Filename: "{app}\xxx.exe"; Description:"运行xxx(&L)";   Flags:postinstall nowait skipifsilent; Check: GetSysLang_CN
    
36. Filename: "hh.exe"; Parameters:"{app}\xxx.chm::/QuickStart.htm"; Description:"阅读初次使用指南(&R)"; Flags:postinstall nowait skipifsilent unchecked; Check: GetSysLang_CN
    
37. 
    
38. [Tasks]
    
39. ; 英文 ===============
    
40. Name: DesktopIcon; Description:"Create a &desktop icon"; GroupDescription:"Additional icons:"                               ; Check: GetSysLang_EN;
    
41. Name: QuickLaunchIcon; Description: "Create a &Quick Launch icon"; GroupDescription: "Additional icons:" ; Flags:Unchecked  ; Check: GetSysLang_EN;
    
42. ; 中文 ===============
    
43. Name: DesktopIcon; Description:"创建桌面图标(&D)"; GroupDescription:"其它图标:"                               ; Check: GetSysLang_CN;
    
44. Name: QuickLaunchIcon; Description: "创建快速启动栏图标(&Q)"; GroupDescription: "其它图标:"; Flags:Unchecked  ; Check: GetSysLang_CN;
    
45. 
    
46. [Icons]
    
47. Name: "{commonprograms}\xxx\xxx"; Filename: "{app}\xxx.exe"
    
48. Name: "{commonprograms}\xxx\Help"; Filename: "{app}\xxx.chm"
    
49. Name: "{commonprograms}\xxx\Uninstall xxx"; Filename: "{uninstallexe}"
    
50. Name: "{userdesktop}\xxx"; Filename: "{app}\xxx.exe"; Tasks:desktopicon
    
51. Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\xxx"; Filename: "{app}\xxx.exe"; Tasks:QuickLaunchIcon
    
52. 
    
53. [Registry]
    
54. Root: HKLM; SubKey: "SoftWare\xxx"; Flags: createvalueifdoesntexist
    
55. Root: HKLM; Subkey: "Software\xxx"; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"
    
56. 
    
57. 
    
58. ;卸载程序时删除服务。用 remove 参数防止出现提示信息。
    
59. [UninstallRun]
    
60. Filename: "{app}\xx.exe"; Parameters: "/remove"; Flags: runhidden
    
61. 
    
62. [UninstallDelete]
    
63. Type: files; Name: "{app}\aabbcc"
    
64. 
    
65. 
    
66. 
    
67. ;===========================================================
    
68. ;以下为安装脚本 & 代码
    
69. ;===========================================================
    
70. 
    
71. [Code]
    
72. var
    
73.   bServiceRunning,bStopService: boolean;
    
74.   sdir: string;
    
75.   
    
76. const
    
77.   SC_MANAGER_CONNECT             = $0001;
    
78.   SC_MANAGER_CREATE_SERVICE      = $0002;
    
79.   SC_MANAGER_ENUMERATE_SERVICE   = $0004;
    
80.   SC_MANAGER_LOCK                = $0008;
    
81.   SC_MANAGER_QUERY_LOCK_STATUS   = $0010;
    
82.   SC_MANAGER_MODIFY_BOOT_CONFIG  = $0020;
    
83.   STANDARD_RIGHTS_REQUIRED = $000F0000;
    
84.   SC_MANAGER_ALL_ACCESS          = (STANDARD_RIGHTS_REQUIRED or
    
85.                                     SC_MANAGER_CONNECT or
    
86.                                     SC_MANAGER_CREATE_SERVICE or
    
87.                                     SC_MANAGER_ENUMERATE_SERVICE or
    
88.                                     SC_MANAGER_LOCK or
    
89.                                     SC_MANAGER_QUERY_LOCK_STATUS or
    
90.                                     SC_MANAGER_MODIFY_BOOT_CONFIG);
    
91.   SERVICE_QUERY_CONFIG           = $0001;
    
92.   SERVICE_CHANGE_CONFIG          = $0002;
    
93.   SERVICE_QUERY_STATUS           = $0004;
    
94.   SERVICE_ENUMERATE_DEPENDENTS   = $0008;
    
95.   SERVICE_START                  = $0010;
    
96.   SERVICE_STOP                   = $0020;
    
97.   SERVICE_PAUSE_CONTINUE         = $0040;
    
98.   SERVICE_INTERROGATE            = $0080;
    
99.   SERVICE_USER_DEFINED_CONTROL   = $0100;
    
100.   SERVICE_ALL_ACCESS             = (STANDARD_RIGHTS_REQUIRED or
     
101.                                     SERVICE_QUERY_CONFIG or
     
102.                                     SERVICE_CHANGE_CONFIG or
     
103.                                     SERVICE_QUERY_STATUS or
     
104.                                     SERVICE_ENUMERATE_DEPENDENTS or
     
105.                                     SERVICE_START or
     
106.                                     SERVICE_STOP or
     
107.                                     SERVICE_PAUSE_CONTINUE or
     
108.                                     SERVICE_INTERROGATE or
     
109.                                     SERVICE_USER_DEFINED_CONTROL);
     
110.   SERVICE_CONTROL_STOP           = $00000001;
     
111.   SERVICE_RUNNING                = $00000004;
     
112. 
     
113.   SM_DBCSENABLED = 42;
     
114. 
     
115.   
     
116. type
     
117.   _SERVICE_STATUS = record
     
118.     dwServiceType: DWORD;
     
119.     dwCurrentState: DWORD;
     
120.     dwControlsAccepted: DWORD;
     
121.     dwWin32ExitCode: DWORD;
     
122.     dwServiceSpecificExitCode: DWORD;
     
123.     dwCheckPoint: DWORD;
     
124.     dwWaitHint: DWORD;
     
125.   end;
     
126.   TServiceStatus = _SERVICE_STATUS;
     
127. 
     
128. function OpenSCManager(lpMachineName, lpDatabaseName: PChar; dwDesiredAccess: DWORD): DWORD;
     
129. external 'OpenSCManagerA@advapi32.dll stdcall delayload setuponly';
     
130. function OpenService(hSCManager: DWORD; lpServiceName: PChar; dwDesiredAccess: DWORD): DWORD;
     
131. external 'OpenServiceA@advapi32.dll stdcall delayload setuponly';
     
132. function ControlService(hService: DWORD; dwControl: DWORD; var lpServiceStatus: TServiceStatus): BOOL;
     
133. external 'ControlService@advapi32.dll stdcall delayload setuponly';
     
134. function QueryServiceStatus(hService: DWORD; var lpServiceStatus: TServiceStatus): BOOL;
     
135. external 'QueryServiceStatus@advapi32.dll stdcall delayload setuponly';
     
136. function CloseServiceHandle(hSCObject: DWORD): BOOL;
     
137. external 'CloseServiceHandle@advapi32.dll stdcall delayload setuponly';
     
138. function StartService(hService: DWORD; dwNumServiceArgs: DWORD; var lpServiceArgVectors: PChar): BOOL;
     
139. external 'StartServiceA@advapi32.dll stdcall delayload setuponly';
     
140. 
     
141. function GetSystemMetrics(nIndex: Integer): Integer;
     
142. external 'GetSystemMetrics@user32.dll stdcall setuponly';
     
143. function GetACP: LongWord;
     
144. external 'GetACP@kernel32.dll stdcall setuponly';
     
145. 
     
146. 
     
147. 
     
148. Function TestService: boolean;
     
149. begin
     
150.   if UsingWinNT then
     
151.     result:= not bServiceRunning or bStopService
     
152.   else
     
153.     result:= true;
     
154. end;
     
155. 
     
156. 
     
157. { 安装开始时初始化变量 }
     
158. function InitializeSetup(): Boolean;
     
159. begin
     
160. end;
     
161. 
     
162. 
     
163. { 点击下一步按钮 }
     
164. function NextButtonClick(CurPageID: Integer): Boolean;
     
165. begin
     
166.   case CurPageID of
     
167.     wpSelectTasks:
     
168.     begin
     
169.     end;
     
170.   end;
     
171.   result:= true;
     
172. end;
     
173. 
     
174. 
     
175. procedure DeinitializeSetup();
     
176. var
     
177.   retcode: integer;
     
178. begin
     
179.   if not UsingWinNT then exit;
     
180. end;
     
181. 
     
182. 
     
183. { 获取注册表中保存的默认安装路径 }
     
184. function myInstallPath(Default: string): string;
     
185. var
     
186.   mypath: string;
     
187. begin
     
188.   mypath:= '';
     
189.   RegQueryStringValue( HKLM, 'SoftWare\xxx', 'InstallPath', mypath );
     
190.   if mypath = '' then
     
191.     mypath := ExpandConstant('{pf}') + '\xxx' ;
     
192.   result:= mypath;
     
193. end;
     
194. 
     
195. 
     
196. { ===================================================================== }
     
197. 
     
198. 
     
199. { 用 PASCAL 脚本实现的类条件编译。}
     
200. Function GetSysLang_CN: boolean;
     
201. begin
     
202.   result:= (GetSystemMetrics(SM_DBCSENABLED) > 0) and ( GetACP = 936 );
     
203. end;
     
204. 
     
205. Function GetSysLang_TW: boolean;
     
206. begin
     
207.   result:= true;
     
208. end;
     
209. 
     
210. Function GetSysLang_EN: boolean;
     
211. begin
     
212.   result:= not GetSysLang_CN;
     
213. end;
     
214. 
     
215. ISS_CN.txt
     
216. 
     
217. ;[Setup]
     
218. OutputBaseFilename= setup2
     
219. 
     
220. [Files]
     
221. Source: "..\Help_CN\x.chm";   DestDir: "{app}";
     
222. 
     
223. [Languages]
     
224. Name: "cn"; MessagesFile: "compiler:Languages\ChineseSimp.isl"
     
225. 
     
226. [Files]
     
227. 
     
228. ISS_EN.txt
     
229. 
     
230. OutputBaseFilename= setup1
     
231. 
     
232. [Files]
     
233. Source: "..\Help\x.chm";      DestDir: "{app}";
     
234. 
     
235. ISS_TW.txt
     
236. 
     
237. ;[Setup]
     
238. OutputBaseFilename= setup3
     
239. 
     
240. [Files]
     
241. Source: "..\Help_TW\x.chm";   DestDir: "{app}";

复制代码