Show More
@@ -1,100 +1,101 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 | Source: dist\python*.dll; Destdir: {app}; Flags: skipifsourcedoesntexist | |
|
39 | 40 | Source: dist\library.zip; DestDir: {app} |
|
40 | 41 | Source: dist\mfc71.dll; DestDir: {app} |
|
41 | 42 | Source: dist\msvcr71.dll; DestDir: {app} |
|
42 | 43 | Source: dist\w9xpopen.exe; DestDir: {app} |
|
43 | 44 | Source: dist\add_path.exe; DestDir: {app} |
|
44 | 45 | Source: doc\*.html; DestDir: {app}\Docs |
|
45 | 46 | Source: locale\*.*; DestDir: {app}\locale; Flags: recursesubdirs createallsubdirs |
|
46 | 47 | Source: templates\*.*; DestDir: {app}\Templates; Flags: recursesubdirs createallsubdirs |
|
47 | 48 | Source: CONTRIBUTORS; DestDir: {app}; DestName: Contributors.txt |
|
48 | 49 | Source: COPYING; DestDir: {app}; DestName: Copying.txt |
|
49 | 50 | |
|
50 | 51 | [INI] |
|
51 | 52 | Filename: {app}\Mercurial.url; Section: InternetShortcut; Key: URL; String: http://www.selenic.com/mercurial/ |
|
52 | 53 | |
|
53 | 54 | [UninstallDelete] |
|
54 | 55 | Type: files; Name: {app}\Mercurial.url |
|
55 | 56 | |
|
56 | 57 | [Icons] |
|
57 | 58 | Name: {group}\Uninstall Mercurial; Filename: {uninstallexe} |
|
58 | 59 | Name: {group}\Mercurial Command Reference; Filename: {app}\Docs\hg.1.html |
|
59 | 60 | Name: {group}\Mercurial Configuration Files; Filename: {app}\Docs\hgrc.5.html |
|
60 | 61 | Name: {group}\Mercurial Ignore Files; Filename: {app}\Docs\hgignore.5.html |
|
61 | 62 | Name: {group}\Mercurial Web Site; Filename: {app}\Mercurial.url |
|
62 | 63 | |
|
63 | 64 | [Run] |
|
64 | 65 | Filename: "{app}\add_path.exe"; Parameters: "{app}"; Flags: postinstall; Description: "Add the installation path to the search path" |
|
65 | 66 | |
|
66 | 67 | [UninstallRun] |
|
67 | 68 | Filename: "{app}\add_path.exe"; Parameters: "/del {app}" |
|
68 | 69 | |
|
69 | 70 | [UninstallDelete] |
|
70 | 71 | Type: files; Name: "{app}\hg.exe.local" |
|
71 | 72 | [Code] |
|
72 | 73 | var |
|
73 | 74 | WriteFile: Boolean; |
|
74 | 75 | CheckDone: Boolean; |
|
75 | 76 | |
|
76 | 77 | function CheckFile(): Boolean; |
|
77 | 78 | begin |
|
78 | 79 | if not CheckDone then begin |
|
79 | 80 | WriteFile := True; |
|
80 | 81 | if FileExists(ExpandConstant(CurrentFileName)) then begin |
|
81 | 82 | WriteFile := MsgBox('' + ExpandConstant(CurrentFileName) + '' #13#13 'The file already exists.' #13#13 'Would you like Setup to overwrite it?', mbConfirmation, MB_YESNO) = idYes; |
|
82 | 83 | end; |
|
83 | 84 | CheckDone := True; |
|
84 | 85 | end; |
|
85 | 86 | Result := WriteFile; |
|
86 | 87 | end; |
|
87 | 88 | |
|
88 | 89 | procedure ConcatenateFiles(); |
|
89 | 90 | var |
|
90 | 91 | MergeConfigs: TArrayOfString; |
|
91 | 92 | begin |
|
92 | 93 | if LoadStringsFromFile(ExpandConstant('{tmp}\mergetools.hgrc'),MergeConfigs) then begin |
|
93 | 94 | SaveStringsToFile(ExpandConstant(CurrentFileName),MergeConfigs,True); |
|
94 | 95 | end; |
|
95 | 96 | end; |
|
96 | 97 | |
|
97 | 98 | procedure Touch(fn: String); |
|
98 | 99 | begin |
|
99 | 100 | SaveStringToFile(ExpandConstant(fn), '', False); |
|
100 | 101 | end; |
General Comments 0
You need to be logged in to leave comments.
Login now