~bzr-pqm/bzr/bzr.dev

; cog.outl('Source: "tbzrshellext_x64.dll"; DestDir: "{app}"; Flags: ignoreversion restartreplace uninsrestartdelete; Components: tortoise; Check: IsWin64;')

102

; cog.outl('Source: "tbzr.dll"; DestDir: "{app}"; Flags: ignoreversion regserver restartreplace uninsrestartdelete; Components: tortoise')

107

103

; cog.outl(r'Source: "plugins\qbzr\*"; DestDir: "{app}\plugins\qbzr"; Flags: createallsubdirs ignoreversion recursesubdirs restartreplace uninsrestartdelete; Components: tortoise')

108

104

;

109

; cog.outl('Source: "%s\\doc\\*.html"; DestDir: "{app}\\doc\\tbzr"; Flags: ignoreversion; Components: tortoise' % os.environ['TBZR'])

105

; cog.outl('Source: "%s\\doc\\index.html"; DestDir: "{app}\\doc\\tbzr"; Flags: ignoreversion; Components: tortoise' % os.environ['TBZR'])

110

106

; ]]]

111

107

; [[[end]]]

112

108

137

133

; ]]]

138

134

; [[[end]]]

139

135

140

; imageformats plugins for PyQt4

141

; [[[cog

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;')

147

; else:

148

; cog.msg('imageformats plugins for PyQt4 not found')

149

; ]]]

150

; [[[end]]]

151

152

136

[Types]

153

137

Name: "typical"; Description: "A typical installation"

154

138

Name: "full"; Description: "Full Installation (typical installation plus test utilities)"

164

148

; 'Description: "CA certificates for SSL support"; '

165

149

; 'Types: full typical custom')

166

150

; 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;')

151

; cog.outl('Name: "tortoise"; Description: "Windows Shell Extensions (TortoiseBZR) - EXPERIMENTAL"; Types: full typical custom;')

168

152

; cog.outl('Name: "debug"; Description: "Test, diagnostic and debugging utilities"; Types: full custom;')

169

153

;

170

154

; ]]]

215

199

Filename: "{app}\bzr_postinstall.exe"; Parameters: "--add-path"; Tasks: Path; Flags: skipifdoesntexist skipifsilent runhidden;

216

200

; [[[cog

217

201

; 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')

202

; cog.outl('Filename: "regsvr32.exe"; Parameters: "/s tbzr.dll"; WorkingDir: "{app}"; Components: tortoise; Description: "Registering Tortoise"; StatusMsg: "Registering Tortoise"')

220

203

; cog.outl(r'Filename: "{app}\doc\tbzr\index.html"; Tasks: TBZRReadme; Flags: shellexec')

221

204

; ]]]

222

205

; [[[end]]]

223

206

224

207

225

208

[UninstallRun]

226

Filename: "{app}\bzr_postinstall.exe"; Parameters: "--delete-path --delete-shell-menu --silent"; Flags: skipifdoesntexist runhidden;

209

Filename: "{app}\bzr_postinstall.exe"; Parameters: "--delete-path --delete-shell-menu --silent"; Flags: skipifdoesntexist runhidden;

227

210

; [[[cog

228

211

; 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')

212

; cog.outl('Filename: "regsvr32.exe"; Parameters: "/u /s tbzr.dll"; WorkingDir: "{app}"; Components: tortoise; StatusMsg: "Unregistering Tortoise"; Flags: skipifdoesntexist')

231

213

; ]]]

232

214

; [[[end]]]

233

215

237

219

SHCNF_IDLIST = $0000;

238

220

SHCNE_ASSOCCHANGED = $08000000;

239

221

WM_QUIT = 18;

240

MOVEFILE_DELAY_UNTIL_REBOOT = 4;

241

222

242

223

procedure SHChangeNotify(wEventId, uFlags, dwItem1, dwItem2: Integer);

243

224

external 'SHChangeNotify@shell32.dll stdcall';

244

225

245

function MoveFileEx(lpExistingFileName, lpNewFileName: String; dwFlags: Cardinal): Integer;

246

external 'MoveFileExA@kernel32.dll stdcall';

247

248

procedure DeleteFileNowOrLater(filename: string);

249

var

250

rc : Integer;

251

begin

252

if FileExists(filename) and not DeleteFile(filename) then

253

// can't work out to pass NULL to the API, but an empty string

254

// seems to work OK.

255

MoveFileEx(filename, '', MOVEFILE_DELAY_UNTIL_REBOOT);

256

end;

257

258

226

procedure ShutdownTBZR;

259

227

var

260

228

hwnd: HWND;

277

245

begin

278

246

if CurStep=ssInstall then begin

279

247

ShutdownTBZR;

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'));

288

248

end;

289

249

290

250

if CurStep=ssPostInstall then begin

292

252

if IsComponentSelected('tortoise') then begin

293

253

// Need to execute:

294

254

// msiexec /i TortoiseOverlays-1.X.X.XXXX-win32.msi /qn /norestart

295

// 64bit notes:

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.

304

255

// [[[cog

305

256

// if "TBZR" in os.environ:

306

257

// import os

307

// cog.outl("if IsWin64 then")

308

// cog.outl(" tovmsi := '%s'" % os.path.basename(os.environ["TORTOISE_OVERLAYS_MSI_X64"]))

309

// cog.outl("else")

310

// cog.outl(" tovmsi := '%s'" % os.path.basename(os.environ["TORTOISE_OVERLAYS_MSI_WIN32"]))

258

// cog.outl("tovmsi := '%s';" % os.path.basename(os.environ["TORTOISE_OVERLAYS_MSI_WIN32"]))

311

259

// else:

312

260

// cog.outl("tovmsi := '';")

313

261

// ]]]

328

276

end;

329

277

330

278

331

function InitializeUninstall(): Boolean;

279

function InitializeUninstall(): Boolean;

332

280

begin

333

281

ShutdownTBZR;

334

282

result := True;

Older »