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}\ |
|
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