##// END OF EJS Templates
include i18n files in the win32 installer...
Stefan Rusek -
r7809:dcdda2f5 default
parent child Browse files
Show More
@@ -1,97 +1,98 b''
1 1 ; Script generated by the Inno Setup Script Wizard.
2 2 ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
3 3 [Setup]
4 4 AppCopyright=Copyright 2005-2009 Matt Mackall and others
5 5 AppName=Mercurial
6 6 AppVerName=Mercurial snapshot
7 7 InfoAfterFile=contrib/win32/postinstall.txt
8 8 LicenseFile=COPYING
9 9 ShowLanguageDialog=yes
10 10 AppPublisher=Matt Mackall and others
11 11 AppPublisherURL=http://www.selenic.com/mercurial
12 12 AppSupportURL=http://www.selenic.com/mercurial
13 13 AppUpdatesURL=http://www.selenic.com/mercurial
14 14 AppID={{4B95A5F1-EF59-4B08-BED8-C891C46121B3}
15 15 AppContact=mercurial@selenic.com
16 16 OutputBaseFilename=Mercurial-snapshot
17 17 DefaultDirName={pf}\Mercurial
18 18 SourceDir=..\..
19 19 VersionInfoDescription=Mercurial distributed SCM
20 20 VersionInfoCopyright=Copyright 2005-2009 Matt Mackall and others
21 21 VersionInfoCompany=Matt Mackall and others
22 22 InternalCompressLevel=max
23 23 SolidCompression=true
24 24 SetupIconFile=contrib\win32\mercurial.ico
25 25 AllowNoIcons=true
26 26 DefaultGroupName=Mercurial
27 27 PrivilegesRequired=none
28 28
29 29 [Files]
30 30 Source: contrib\mercurial.el; DestDir: {app}/Contrib
31 31 Source: contrib\vim\*.*; DestDir: {app}/Contrib/Vim
32 32 Source: contrib\zsh_completion; DestDir: {app}/Contrib
33 33 Source: contrib\hgk; DestDir: {app}/Contrib; DestName: hgk.tcl
34 34 Source: contrib\win32\ReadMe.html; DestDir: {app}; Flags: isreadme
35 35 Source: contrib\mergetools.hgrc; DestDir: {tmp};
36 36 Source: contrib\win32\mercurial.ini; DestDir: {app}; DestName: Mercurial.ini; Check: CheckFile; AfterInstall: ConcatenateFiles;
37 37 Source: contrib\win32\postinstall.txt; DestDir: {app}; DestName: ReleaseNotes.txt
38 38 Source: dist\hg.exe; DestDir: {app}; AfterInstall: Touch('{app}\hg.exe.local')
39 39 Source: dist\library.zip; DestDir: {app}
40 40 Source: dist\mfc71.dll; DestDir: {app}
41 41 Source: dist\msvcr71.dll; DestDir: {app}
42 42 Source: dist\w9xpopen.exe; DestDir: {app}
43 43 Source: dist\add_path.exe; DestDir: {app}
44 44 Source: doc\*.html; DestDir: {app}\Docs
45 Source: locale\*.*; DestDir: {app}\locale; Flags: recursesubdirs createallsubdirs
45 46 Source: templates\*.*; DestDir: {app}\Templates; Flags: recursesubdirs createallsubdirs
46 47 Source: CONTRIBUTORS; DestDir: {app}; DestName: Contributors.txt
47 48 Source: COPYING; DestDir: {app}; DestName: Copying.txt
48 49
49 50 [INI]
50 51 Filename: {app}\Mercurial.url; Section: InternetShortcut; Key: URL; String: http://www.selenic.com/mercurial/
51 52
52 53 [UninstallDelete]
53 54 Type: files; Name: {app}\Mercurial.url
54 55
55 56 [Icons]
56 57 Name: {group}\Uninstall Mercurial; Filename: {uninstallexe}
57 58 Name: {group}\Mercurial Command Reference; Filename: {app}\Docs\hg.1.html
58 59 Name: {group}\Mercurial Web Site; Filename: {app}\Mercurial.url
59 60
60 61 [Run]
61 62 Filename: "{app}\add_path.exe"; Parameters: "{app}"; Flags: postinstall; Description: "Add the installation path to the search path"
62 63
63 64 [UninstallRun]
64 65 Filename: "{app}\add_path.exe"; Parameters: "/del {app}"
65 66
66 67 [UninstallDelete]
67 68 Type: files; Name: "{app}\hg.exe.local"
68 69 [Code]
69 70 var
70 71 WriteFile: Boolean;
71 72 CheckDone: Boolean;
72 73
73 74 function CheckFile(): Boolean;
74 75 begin
75 76 if not CheckDone then begin
76 77 WriteFile := True;
77 78 if FileExists(ExpandConstant(CurrentFileName)) then begin
78 79 WriteFile := MsgBox('' + ExpandConstant(CurrentFileName) + '' #13#13 'The file already exists.' #13#13 'Would you like Setup to overwrite it?', mbConfirmation, MB_YESNO) = idYes;
79 80 end;
80 81 CheckDone := True;
81 82 end;
82 83 Result := WriteFile;
83 84 end;
84 85
85 86 procedure ConcatenateFiles();
86 87 var
87 88 MergeConfigs: TArrayOfString;
88 89 begin
89 90 if LoadStringsFromFile(ExpandConstant('{tmp}\mergetools.hgrc'),MergeConfigs) then begin
90 91 SaveStringsToFile(ExpandConstant(CurrentFileName),MergeConfigs,True);
91 92 end;
92 93 end;
93 94
94 95 procedure Touch(fn: String);
95 96 begin
96 97 SaveStringToFile(ExpandConstant(fn), '', False);
97 98 end;
General Comments 0
You need to be logged in to leave comments. Login now