##// END OF EJS Templates
win32: remove Mercurial.ini file from Inno Setup installer (issue4435)
Pascal Quantin -
r23175:5ec7b2cb default
parent child Browse files
Show More
@@ -67,7 +67,6 b' Source: contrib\\mq.el; DestDir: {app}/Co'
67 Source: contrib\hgweb.fcgi; DestDir: {app}/Contrib
67 Source: contrib\hgweb.fcgi; DestDir: {app}/Contrib
68 Source: contrib\hgweb.wsgi; DestDir: {app}/Contrib
68 Source: contrib\hgweb.wsgi; DestDir: {app}/Contrib
69 Source: contrib\win32\ReadMe.html; DestDir: {app}; Flags: isreadme
69 Source: contrib\win32\ReadMe.html; DestDir: {app}; Flags: isreadme
70 Source: contrib\win32\mercurial.ini; DestDir: {app}; DestName: Mercurial.ini; Check: CheckFile;
71 Source: contrib\win32\postinstall.txt; DestDir: {app}; DestName: ReleaseNotes.txt
70 Source: contrib\win32\postinstall.txt; DestDir: {app}; DestName: ReleaseNotes.txt
72 Source: dist\hg.exe; DestDir: {app}; AfterInstall: Touch('{app}\hg.exe.local')
71 Source: dist\hg.exe; DestDir: {app}; AfterInstall: Touch('{app}\hg.exe.local')
73 #if ARCH == "x64"
72 #if ARCH == "x64"
@@ -93,10 +92,13 b' Source: COPYING; DestDir: {app}; DestNam'
93
92
94 [INI]
93 [INI]
95 Filename: {app}\Mercurial.url; Section: InternetShortcut; Key: URL; String: http://mercurial.selenic.com/
94 Filename: {app}\Mercurial.url; Section: InternetShortcut; Key: URL; String: http://mercurial.selenic.com/
96 Filename: {app}\Mercurial.ini; Section: web; Key: cacerts; String: {app}\cacert.pem
95 Filename: {app}\default.d\editor.rc; Section: ui; Key: editor; String: notepad
96 Filename: {app}\default.d\cacerts.rc; Section: web; Key: cacerts; String: {app}\cacert.pem
97
97
98 [UninstallDelete]
98 [UninstallDelete]
99 Type: files; Name: {app}\Mercurial.url
99 Type: files; Name: {app}\Mercurial.url
100 Type: filesandordirs; Name: {app}\default.d
101 Type: files; Name: "{app}\hg.exe.local"
100
102
101 [Icons]
103 [Icons]
102 Name: {group}\Uninstall Mercurial; Filename: {uninstallexe}
104 Name: {group}\Uninstall Mercurial; Filename: {uninstallexe}
@@ -111,26 +113,7 b' Filename: "{app}\\add_path.exe"; Paramete'
111 [UninstallRun]
113 [UninstallRun]
112 Filename: "{app}\add_path.exe"; Parameters: "/del {app}"
114 Filename: "{app}\add_path.exe"; Parameters: "/del {app}"
113
115
114 [UninstallDelete]
115 Type: files; Name: "{app}\hg.exe.local"
116
117 [Code]
116 [Code]
118 var
119 WriteFile: Boolean;
120 CheckDone: Boolean;
121
122 function CheckFile(): Boolean;
123 begin
124 if not CheckDone then begin
125 WriteFile := True;
126 if FileExists(ExpandConstant(CurrentFileName)) then begin
127 WriteFile := MsgBox('' + ExpandConstant(CurrentFileName) + '' #13#13 'The file already exists.' #13#13 'Would you like Setup to overwrite it?', mbConfirmation, MB_YESNO) = idYes;
128 end;
129 CheckDone := True;
130 end;
131 Result := WriteFile;
132 end;
133
134 procedure Touch(fn: String);
117 procedure Touch(fn: String);
135 begin
118 begin
136 SaveStringToFile(ExpandConstant(fn), '', False);
119 SaveStringToFile(ExpandConstant(fn), '', False);
General Comments 0
You need to be logged in to leave comments. Login now