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