80
72
ChangesEnvironment=yes
81
; MARKH: PrivilegesRequired=none means it can't be installed by a non-admin
82
; user - but sadly we still need admin - eg, tortoise overlays, installing
83
; into "\Program Files", installing COM objects etc all must be done by an
85
PrivilegesRequired=admin
88
; Tortoise files - these are at the top as we use 'ExtractTemporaryFile' on
89
; the TortoiseOverlays MSI, and inno documents such files should be at the
90
; start for best performance.
92
; if "TBZR" in os.environ: # we need a more formal way of controlling this...
93
; tovmsi32 = os.environ["TORTOISE_OVERLAYS_MSI_WIN32"] # point at the 32bit TortoiseOverlays .msi
94
; tovmsi64 = os.environ["TORTOISE_OVERLAYS_MSI_X64"] # point at the 64bit TortoiseOverlays .msi
95
; cog.outl('Source: "%s"; Flags: dontcopy ignoreversion ; Components: tortoise' % tovmsi32)
96
; cog.outl('Source: "%s"; Flags: dontcopy ignoreversion ; Components: tortoise' % tovmsi64)
97
; cog.outl('Source: "tbzrcache.exe"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: tortoise')
98
; cog.outl('Source: "tbzrcachew.exe"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: tortoise')
99
; cog.outl('Source: "tbzrcommand.exe"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: tortoise')
100
; cog.outl('Source: "tbzrcommandw.exe"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: tortoise')
101
; cog.outl('Source: "tbzrtrace.exe"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: debug')
102
; # Note 'regserver' here appears to run regsvr32 without elevation, which
103
; # is no good for us - so we have a [run] entry below.
104
; cog.outl('Source: "tbzr_old.dll"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: tortoise')
105
; cog.outl('Source: "tbzrshellext_x86.dll"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: tortoise')
106
; cog.outl('Source: "tbzrshellext_x64.dll"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: tortoise; Check: IsWin64;')
107
; cog.outl(r'Source: "plugins\qbzr\*"; DestDir: "{app}\plugins\qbzr"; Flags: createallsubdirs ignoreversion recursesubdirs restartreplace uninsrestartdelete; Components: tortoise')
109
; cog.outl('Source: "%s\\doc\\*.html"; DestDir: "{app}\\doc\\tbzr"; Flags: ignoreversion; Components: tortoise' % os.environ['TBZR'])
113
; We can't say '*.*' due to optional components.
114
Source: "plugins\*.*"; DestDir: "{app}\\plugins"; Flags: createallsubdirs ignoreversion recursesubdirs restartreplace uninsrestartdelete; Components: plugins
115
Source: "*.bat"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete;
116
Source: "*.url"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete;
117
Source: "msvc*.dll"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete;
118
Source: "bz*.exe"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete;
119
Source: "Python*.dll"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete;
120
Source: "lib\*.*"; DestDir: "{app}\lib"; Flags: createallsubdirs ignoreversion recursesubdirs restartreplace uninsrestartdelete;
121
Source: "doc\*.*"; DestDir: "{app}\doc"; Flags: createallsubdirs ignoreversion recursesubdirs restartreplace uninsrestartdelete;
125
; except ImportError:
128
; supported = pycurl.version_info()[8]
129
; if 'https' in supported:
130
; from bzrlib.transport.http.ca_bundle import get_ca_path
131
; ca_path = get_ca_path()
133
; cog.outl('Source: "%s"; DestDir: "{app}"; Components: cabundle' % ca_path)
135
; cog.msg('You have pycurl with SSL support, '
136
; 'but CA Bundle (curl-ca-bundle.crt) not found!')
140
; imageformats plugins for PyQt4
142
; plug_dir = os.path.join(os.path.dirname(cog.inFile), # $(bzr_src_root)/tools/win32
143
; '..', '..', 'win32_bzr.exe', 'imageformats')
144
; if os.path.isdir(plug_dir):
145
; cog.outl('Source: "imageformats\\*.*"; DestDir: "{app}\\imageformats"; '
146
; 'Flags: createallsubdirs ignoreversion recursesubdirs restartreplace uninsrestartdelete;')
148
; cog.msg('imageformats plugins for PyQt4 not found')
153
Name: "typical"; Description: "A typical installation"
154
Name: "full"; Description: "Full Installation (typical installation plus test utilities)"
155
Name: "compact"; Description: "Compact installation"
156
Name: "custom"; Description: "Custom installation"; Flags: iscustom
159
Name: "main"; Description: "Main Files"; Types: full typical compact custom; Flags: fixed
160
Name: "plugins"; Description: "Default plugins"; Types: full typical custom;
163
; cog.outl('Name: "cabundle"; '
164
; 'Description: "CA certificates for SSL support"; '
165
; 'Types: full typical custom')
166
; if "TBZR" in os.environ: # we need a more formal way of controlling this...
167
; cog.outl('Name: "tortoise"; Description: "Windows Shell Extensions (TortoiseBZR)"; Types: full typical custom;')
168
; cog.outl('Name: "debug"; Description: "Test, diagnostic and debugging utilities"; Types: full custom;')
75
Source: "*.*"; DestDir: "{app}"; Flags: ignoreversion;
76
Source: "lib\*.*"; DestDir: "{app}\lib"; Flags: createallsubdirs ignoreversion recursesubdirs;
77
Source: "doc\*.*"; DestDir: "{app}\doc"; Flags: createallsubdirs ignoreversion recursesubdirs;
174
80
Name: "{userappdata}\bazaar\2.0"
175
Name: "{app}\plugins"; Flags: uninsalwaysuninstall
179
Name: "{group}\Documentation index"; Filename: "{app}\doc\index.html"; WorkingDir: "{app}\doc";
83
Name: "{group}\Documentation index"; Filename: "{app}\doc\index.htm"; WorkingDir: "{app}\doc";
180
84
Name: "{group}\Bazaar Home Page"; Filename: "{app}\bazaar.url"; Comment: "http://www.bazaar-vcs.org";
181
Name: "{group}\Start Bzr in cmd shell"; Filename: "{cmd}"; Parameters: "/K start_bzr.bat"; WorkingDir: "{app}"; IconFilename: "{app}\bzr.exe"; Comment: "Open new Bzr session";
182
; NOTE: Intent is to change the log file location - the line below will need to change to reflect that.
183
Name: "{group}\Open Bzr log file"; Filename: "notepad.exe"; Parameters: "{userdocs}\.bzr.log"; Comment: "Launch notepad to view the bzr log file";
186
; if "TBZR" in os.environ:
187
; cog.outl(r'Name: "{group}\TortoiseBZR documentation"; Filename: "{app}\doc\tbzr\index.html"; Comment: "Launch TortoiseBZR documentation";')
190
; No Uninstall here - Control Panel will do
85
Name: "{group}\Start Bzr in cmd shell"; Filename: "{sys}\cmd.exe"; Parameters: "/K start_bzr.bat"; WorkingDir: "{app}"; IconFilename: "{app}\bzr.exe"; Comment: "Open new Bzr session";
86
Name: "{group}\Uninstall Bzr"; Filename: "{uninstallexe}"; IconFileName: "{sys}\shell32.dll"; IconIndex: 101; Comment: "Remove Bzr completely";
194
Name: Path; Description: "Add {app} directory to PATH environment variable"
196
; if "TBZR" in os.environ:
197
; cog.outl('Name: TBZRReadme; Description: "View the TortoiseBZR Readme"; Components: tortoise')
203
Root: HKLM; Subkey: "SOFTWARE\Bazaar"; Flags: noerror uninsdeletekey
204
Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "InstallPath"; ValueType: string; ValueData: "{app}"; Flags: noerror
205
; Don't write stuff that can be implied
206
;Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "BzrlibPath"; ValueType: string; ValueData: "{app}\lib\library.zip\bzrlib"; Flags: noerror
207
;Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "PluginsPath"; ValueType: string; ValueData: "{app}\plugins"; Flags: noerror
208
;Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "PythonPath"; ValueType: string; ValueData: "{app}\lib\library.zip"; Flags: noerror
209
; [[[cog cog.outl('Root: HKLM; Subkey: "SOFTWARE\Bazaar"; ValueName: "Version"; ValueType: string; ValueData: "%s"; Flags: noerror' % VERSION) ]]]
89
Name: Path; Description: "Add {app} directory to PATH environment variable";
90
Name: Shell; Description: "Add Bzr context menu to shell";
214
93
Filename: "{app}\bzr_postinstall.exe"; Parameters: "--start-bzr"; Flags: skipifdoesntexist runhidden;
94
Filename: "{app}\bzr_postinstall.exe"; Parameters: "--check-mfc71"; Flags: skipifdoesntexist skipifsilent runhidden;
215
95
Filename: "{app}\bzr_postinstall.exe"; Parameters: "--add-path"; Tasks: Path; Flags: skipifdoesntexist skipifsilent runhidden;
217
; if "TBZR" in os.environ:
218
; cog.outl('Filename: "regsvr32.exe"; Parameters: "/s /i: /n tbzrshellext_x86.dll"; WorkingDir: "{app}"; Components: tortoise; Description: "Registering Tortoise"; StatusMsg: "Registering Tortoise"')
219
; cog.outl('Filename: "regsvr32.exe"; Parameters: "/s /i: /n tbzrshellext_x64.dll"; WorkingDir: "{app}"; Components: tortoise; Description: "Registering Tortoise"; StatusMsg: "Registering Tortoise"; Check: IsWin64')
220
; cog.outl(r'Filename: "{app}\doc\tbzr\index.html"; Tasks: TBZRReadme; Flags: shellexec')
96
Filename: "{app}\bzr_postinstall.exe"; Parameters: "--add-shell-menu"; Tasks: Shell; Flags: skipifdoesntexist skipifsilent runhidden;
226
Filename: "{app}\bzr_postinstall.exe"; Parameters: "--delete-path --delete-shell-menu --silent"; Flags: skipifdoesntexist runhidden;
228
; if "TBZR" in os.environ:
229
; cog.outl('Filename: "regsvr32.exe"; Parameters: "/u /s /i: tbzrshellext_x86.dll"; WorkingDir: "{app}"; Components: tortoise; StatusMsg: "Unregistering Tortoise"; Flags: skipifdoesntexist')
230
; cog.outl('Filename: "regsvr32.exe"; Parameters: "/u /s /i: tbzrshellext_x64.dll"; WorkingDir: "{app}"; Components: tortoise; StatusMsg: "Unregistering Tortoise"; Flags: skipifdoesntexist; Check: IsWin64')
237
SHCNF_IDLIST = $0000;
238
SHCNE_ASSOCCHANGED = $08000000;
240
MOVEFILE_DELAY_UNTIL_REBOOT = 4;
242
procedure SHChangeNotify(wEventId, uFlags, dwItem1, dwItem2: Integer);
243
external 'SHChangeNotify@shell32.dll stdcall';
245
function MoveFileEx(lpExistingFileName, lpNewFileName: String; dwFlags: Cardinal): Integer;
246
external 'MoveFileExA@kernel32.dll stdcall';
248
procedure DeleteFileNowOrLater(filename: string);
252
if FileExists(filename) and not DeleteFile(filename) then
253
// can't work out to pass NULL to the API, but an empty string
255
MoveFileEx(filename, '', MOVEFILE_DELAY_UNTIL_REBOOT);
258
procedure ShutdownTBZR;
263
// if "TBZR" not in os.environ:
264
// cog.outl(' Exit; // No TSVN set - exit this procedure.')
267
// ask the cache process to shut-down.
268
hwnd := FindWindowByClassName('TBZRCache_Taskbar');
270
PostMessage(hwnd, WM_QUIT, 1, 0);
273
procedure CurStepChanged(CurStep: TSetupStep);
275
S, tovmsi, fqtovmsi, params: String;
278
if CurStep=ssInstall then begin
280
// In case the user hasn't uninstalled the old version before
281
// upgrading, we unregister and delete some obsolete files
282
// (regsvr32 remains silent even if the file doesn't exist)
283
Exec('regsvr32.exe', '/s /u "' + ExpandConstant('{app}\tbzr.dll') + '"',
284
'', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
285
DeleteFileNowOrLater(ExpandConstant('{app}\tbzr.dll'));
286
DeleteFileNowOrLater(ExpandConstant('{app}\tbzrtest.exe'));
287
DeleteFileNowOrLater(ExpandConstant('{app}\tbzr_tracer.exe'));
290
if CurStep=ssPostInstall then begin
291
// a couple of post-install tasks
292
if IsComponentSelected('tortoise') then begin
294
// msiexec /i TortoiseOverlays-1.X.X.XXXX-win32.msi /qn /norestart
296
// We are still primarily a 32bit application - the only 64bit binary is the
297
// shell extension, but even then, we need to install the 32bit version too.
298
// Thus, we keep tortoise in 32bit "install mode" - meaning we are installed
299
// to "\Program Files (x86)". We don't bother trying to install our single
300
// 64bit DLL into "\Program Files" - we use a different DLL name for 32 and
301
// 64 bit versions, so nothing will conflict.
302
// Note however that on a 64bit OS, we only need the 64bit TortoiseOverlays -
303
// the 32bit apps using shell extensions still work fine with that.
305
// if "TBZR" in os.environ:
307
// cog.outl("if IsWin64 then")
308
// cog.outl(" tovmsi := '%s'" % os.path.basename(os.environ["TORTOISE_OVERLAYS_MSI_X64"]))
310
// cog.outl(" tovmsi := '%s'" % os.path.basename(os.environ["TORTOISE_OVERLAYS_MSI_WIN32"]))
312
// cog.outl("tovmsi := '';")
315
ExtractTemporaryFile(tovmsi);
316
fqtovmsi := AddBackslash(ExpandConstant('{tmp}')) + tovmsi;
317
params := '/i "' + fqtovmsi + '" /qn /norestart';
318
if not ShellExec('', 'msiexec.exe', params, '', SW_HIDE,
319
ewWaitUntilTerminated, ErrorCode) then
320
MsgBox('Failed to install TortoiseOverlays: ' + SysErrorMessage(ErrorCode),
321
mbInformation, MB_OK);
322
// Ideally we could be bzr_postinstall.exe this way too, but
323
// its needed at uninstall time.
325
// cause explorer to re-fetch handlers.
326
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);
331
function InitializeUninstall(): Boolean;
99
Filename: "{app}\bzr_postinstall.exe"; Parameters: "--delete-path --delete-shell-menu --silent"; Flags: skipifdoesntexist runhidden;
added
removed
tools/win32/bzr.iss.cog
