zaaReloaded2/publish/zaaReloaded2.iss

; Inno Setup script for zaaReloaded2
; (c) 2015 Daniel Kraus
; Apache License Version 2.0

[Setup]
; #define DEBUG

; Read the semantic and the installer file version from the VERSION file
#define FILE_HANDLE FileOpen("..\zaaReloaded2\VERSION")
#define SEMVER FileRead(FILE_HANDLE)
#define VER FileRead(FILE_HANDLE)
#expr FileClose(FILE_HANDLE)

#define YEAR "2015"
#define DEV "Daniel Kraus"
#define LOGFILE "INST-LOG.TXT"
#define REGKEY "Software\Microsoft\Office\Word\Addins\zaaReloaded2"
#define APPNAME "zaaReloaded"
#define SLOGAN "Word-Addin, das Lauris-Laborwerte in der Zentralen Arztbriefablage formatiert"
#define UNINSTALLDIR "{app}\setup"
#define ADDINNAME "zaaReloaded2"
#define DOTNETSHA1 "58da3d74db353aad03588cbb5cea8234166d8b99"
#define VSTORSHA1 "ad1dcc5325cb31754105c8c783995649e2208571"

#ifndef DEBUG
  #define SOURCEDIR "Release"
	#define VSTORURL "http://download.microsoft.com/download/2/E/9/2E9D2603-6D1F-4B12-BD37-DB1410B23597/vstor_redist.exe"
	#define DOTNETURL "http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe"
	; Build the solution with Release configuration
	#expr Exec("C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDE\devenv.com", \
				"x:\Code\zaaReloaded2\zaaReloaded2\zaaReloaded2.csproj /Build Release")
#else
  #define SOURCEDIR "Debug"
	#define VSTORURL "http://vhost/vstor_redist.exe"
	#define DOTNETURL "http://vhost/dotNetFx40_Full_x86_x64.exe"
#endif

; Specific AppID - NEVER CHANGE THIS!
AppId={{8520B887-3AB1-422B-AB6B-A265D14FE4E5}
                      
; Compiler info
OutputDir=release
#ifndef DEBUG
	OutputBaseFilename=zaaReloaded-{#SEMVER}
#else
	OutputBaseFilename=zaaReloaded-debug
#endif
Compression=lzma
InternalCompressLevel=max
SolidCompression=true
LicenseFile=setup-files\license.rtf

; Application name, version, etc.
AppName={#APPNAME}
AppVersion={#SEMVER}
AppPublisher={#DEV}
AppCopyright=2008-{#YEAR} {#DEV}
AppComments={#SLOGAN}
VersionInfoDescription={#SLOGAN}
VersionInfoVersion={#VER}
VersionInfoProductVersion={#VER}
VersionInfoTextVersion={#SEMVER}
VersionInfoProductTextVersion={#SEMVER}
AppContact={#DEV}
AppPublisherURL=http://zaa.nephrowiki.de
AppSupportURL=http://zaa.nephrowiki.de
AppUpdatesURL=http://zaa.nephrowiki.de

; Setup wizard
SetupIconFile=setup-files\icon.ico
WizardImageFile=setup-files\installbanner.bmp
WizardSmallImageFile=setup-files\installbanner-small.bmp
ArchitecturesAllowed=x86 x64
ArchitecturesInstallIn64BitMode=x64
DisableProgramGroupPage=true
DisableDirPage=false
DisableReadyPage=false
LanguageDetectionMethod=locale
TimeStampsInUTC=false
PrivilegesRequired=lowest
WizardImageStretch=false
WizardImageBackColor=clWhite
; ChangesAssociations=true
AppendDefaultDirName=false
DefaultDirName={code:SuggestInstallDir}
CreateAppDir=true
CloseApplicationsFilter=*.*
DefaultDialogFontName=Segoe UI

; Uninstall
;UninstallDisplayIcon={#UNINSTALLDIR}\xltoolbox.ico
UninstallFilesDir={#UNINSTALLDIR}
	
; Inno Downloader Plugin is required for this
; Note that this include directive MUST be located at the end of the [setup]
; section.
#include <idp.iss>

[Languages]
Name: en; MessagesFile: compiler:Default.isl; 
Name: de; MessagesFile: compiler:Languages\German.isl; 
; Name: Brasileiro; MessagesFile: compiler:Languages\BrazilianPortuguese.isl;
; Name: Portugues; MessagesFile: compiler:Languages\Portuguese.isl;
#include "c:\Program Files (x86)\Inno Download Plugin\Unicode\idplang\german.iss"

[Files]
Source: "..\zaaReloaded2\bin\{#SOURCEDIR}\*"; DestDir: "{app}"; Flags: ignoreversion createallsubdirs recursesubdirs
; Source: "setup-files\xltoolbox.ico"; DestDir: "{#UNINSTALLDIR}"
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Registry]
; Keys for single-user install (HKCU)
Check: not IsMultiUserInstall; ValueName: Description; ValueData: {#SLOGAN}; ValueType: string; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
Check: not IsMultiUserInstall; ValueName: FriendlyName; ValueData: {#APPNAME}; ValueType: string; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
Check: not IsMultiUserInstall; ValueName: LoadBehavior; ValueData: 3; ValueType: dword; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
Check: not IsMultiUserInstall; ValueName: Warmup; ValueData: 1; ValueType: dword; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey
Check: not IsMultiUserInstall; ValueName: Manifest; ValueData: file:///{code:ConvertSlash|{app}}/{#ADDINNAME}.vsto|vstolocal; ValueType: string; Root: HKCU; Subkey: {#REGKEY}; Flags: uninsdeletekey

; Same keys again, this time for multi-user install (HKLM)
Check: IsMultiUserInstall; ValueName: Description; ValueData: {#SLOGAN}; ValueType: string; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
Check: IsMultiUserInstall; ValueName: FriendlyName; ValueData: {#APPNAME}; ValueType: string; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
Check: IsMultiUserInstall; ValueName: LoadBehavior; ValueData: 3; ValueType: dword; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
Check: IsMultiUserInstall; ValueName: Warmup; ValueData: 1; ValueType: dword; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey
Check: IsMultiUserInstall; ValueName: Manifest; ValueData: file:///{code:ConvertSlash|{app}}/{#ADDINNAME}.vsto|vstolocal; ValueType: string; Root: HKLM; Subkey: {#REGKEY}; Flags: uninsdeletekey

[Run]
; Filename: http://xltoolbox.sourceforge.net/welcome.html; Flags: shellexec nowait; Check: ShowWelcomePageInBrowser

[UninstallRun]
; Filename: http://xltoolbox.sourceforge.net/uninstall.html; Flags: shellexec nowait

[CustomMessages]
; General messages [EN]
en.SingleOrMulti=Single-user or system-wide install
en.SingleOrMultiSubcaption=Install for the current user only or for all users
en.SingleOrMultiDesc=Please indicate the scope of this installation:
en.SingleOrMultiSingle=Single user (only for me)
en.SingleOrMultiAll=All users (system-wide)
en.Word2007Required=zaaReloaded requires Word 2007 or later.

; CannotInstallPage [EN]
en.CannotInstallCaption=Administrator privileges required
en.CannotInstallDesc=You do not have the necessary rights to install additional required runtime files.
en.CannotInstallMsg=Additional runtime files from Microsoft are required to run this add-in. You may continue the installation, but the add-in won't start unless the required runtime files are installed by an administrator. Note: On Windows Vista and newer, right-click the installer file and choose 'Run as administrator'.
en.CannotInstallCont=Continue anyway, although it won't work without the required runtime files
en.CannotInstallAbort=Abort the installation (come back when the admin has installed the files)

; DownloadInfoPage [EN]
en.RequiredCaption=Additional runtime files required
en.RequiredDesc=Additional runtime files for the .NET framework from Microsoft are required in order to run the add-in.
en.RequiredMsg=%d file(s) totalling about %s MiB need to be downloaded from the Microsoft servers. Click 'Next' to start downloading.

; InstallInfoPage [EN]
en.InstallCaption=Runtime files downloaded
en.InstallDesc=The required runtime files are ready to install.
en.InstallMsg=Click 'Next' to beginn the installation.

en.StillNotInstalled=The required additional runtime files are still not installed. Setup cannot continue. You may try again, or abort the add-in installation.
en.DownloadNotValidated=A downloaded file has unexpected content. It may have not been downloaded correctly, or someone might have hampered with it. You may click 'Back' and then 'Next' to download it again.

; General messages [DE]
de.SingleOrMulti=Einzelner oder alle Benutzer
de.SingleOrMultiSubcaption=Geben Sie an, f<>r wen die Installation sein soll
de.SingleOrMultiDesc=Bitte geben Sie an, ob das Addin nur f<>r Sie oder f<>r alle Benutzer installiert werden soll.
de.SingleOrMultiSingle=Ein Benutzer (nur f<>r mich)
de.SingleOrMultiAll=Alle Benutzer (systemweit)
de.Word2007Required=Dieses Addin erfordert mindestens Word 2007.

; "Download required" messages (.NET and VSTOR runtimes) [DE]
de.CannotInstallCaption=Administratorrechte ben<65>tigt
de.CannotInstallDesc=Sie haben nicht die erforderlichen Benutzerrechte, um weitere ben<65>tigte Laufzeitdateien zu installieren.
de.CannotInstallMsg=Sie k<>nnen mit der Installation fortfahren, aber das Addin wird nicht starten, solange die VSTO-Laufzeitdateien nicht von einem Admin installiert wurden. Tipp: Wenn Sie Windows Vista oder neuer verwenden, klicken Sie mit der rechten Maustaste auf die Installationsdatei und w<>hlen "Als Administrator ausf<73>hren".
de.CannotInstallCont=Trotzdem installieren, obwohl es nicht funktionieren wird
de.CannotInstallAbort=Installation abbrechen

; DownloadInfoPage [EN]
de.RequiredCaption=Weitere Laufzeitdateien erforderlich
de.RequiredDesc=Weitere Laufzeitdateien f<>r das .NET-Framework von Microsoft werden ben<65>tigt, um das Addin verwenden zu k<>nnen.
de.RequiredMsg=%d Datei(en) mit ca. %s MiB mu<6D>/m<>ssen von den Microsoft-Servern heruntergeladen werden. Klicken Sie 'Weiter', um den Download zu beginnen.

; InstallInfoPage [EN]
de.InstallCaption=Weitere .NET-Laufzeitdateien heruntergeladen
de.InstallDesc=Die zus<75>tzlichen ben<65>tigten Dateien von Microsoft k<>nnen jetzt installiert werden.
de.InstallMsg=Klicken Sie 'Weiter', um mit der Installation zu beginnen.

de.StillNotInstalled=Die zus<75>tzlichen ben<65>tigten Dateien wurden leider nicht korrekt installiert, so da<64> die Installation nicht fortgesetzt werden kann.
de.DownloadNotValidated=Es wurde unerwarteter Inhalt in einer heruntergeladenen Datei gefunden. Die Installation kann so nicht fortgesetzt werden. Sie k<>nnen aber 'Zur<75>ck' und dann 'Weiter' klicken, um den Download neu zu beginnen.

[Code]
const
	maxWord = 24; //< highest Word version number to check for.
	
var
	PageDevelopmentInfo: TInputOptionWizardPage;
	PageSingleOrMultiUser: TInputOptionWizardPage;
	PageCannotInstall: TInputOptionWizardPage;
	PageDownloadInfo: TOutputMsgWizardPage;
	PageInstallInfo: TOutputMsgWizardPage;
	prerequisitesChecked: boolean;
	prerequisitesMet: boolean;

/// Returns the path for the Wow6432Node registry tree if the current operating
/// system is 64-bit, i.e., simulates WOW64 redirection.
function GetWowNode(): string;
begin
	if IsWin64 then
	begin
		result := 'Wow6432Node\';
	end
	else
	begin
		result := '';
	end;
end;
	
/// Checks if a given Word version is installed
function IsWordVersionInstalled(version: integer): boolean;
var key: string;
var lookup1, lookup2: boolean;
begin
	key := 'Microsoft\Office\' + IntToStr(version) + '.0\Word\InstallRoot';
	lookup1 := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\' + GetWowNode + key);
	
	// If checking for version >= 14.0 ("2010"), which was the first version
	// that was produced in both 32-bit and 64-bit, on a 64-bit system we
	// also need to check a path without  'Wow6434Node'.
	if IsWin64 and (version >= 14) then
	begin
		lookup2 := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\' + key);
	end;
	
	result := lookup1 or lookup2;
end;

/// Checks if only Word 2007 is installed
function IsOnlyWord2007Installed(): boolean;
var
	i: integer;
begin
	result := IsWordVersionInstalled(12);
	
	// Iterate through all
	for i := 14 to maxWord do
	begin
		if IsWordVersionInstalled(i) then
		begin
			result := false;
			break;
		end;
	end;
end;

/// Checks if hotfix KB976477 is installed. This hotfix
/// is required to make Word 2007 recognize add-ins in
/// the HKLM hive as well.
function IsHotfixInstalled(): boolean;
begin
  result := RegKeyExists(HKEY_LOCAL_MACHINE,
		'SOFTWARE\Microsoft\Windows\Current Version\Uninstall\KB976477');
end;

/// Retrieves the build number of an installed Office version
/// in OutBuild. Returns true if the requested Office version
/// is installed and false if it is not installed.
function GetOfficeBuild(OfficeVersion: integer; var OutBuild: integer): boolean;
var
	key: string;
	value: string;
	build: string;
begin
	key := 'SOFTWARE\' + GetWowNode + 'Microsoft\Office\' +
					IntToStr(OfficeVersion) + '.0\Common\ProductVersion';
	if RegQueryStringValue(HKEY_LOCAL_MACHINE, key, 'LastProduct', value) then
	begin
		// Office build numbers always have 4 digits, at least as of Feb. 2015;
		// from a string '14.0.1234.5000' simply copy 4 characters from the 5th
		// position to get the build number. TODO: Make this future-proof.
		build := Copy(value, 6, 4);
		Log('Found ProductVersion "' + value + '" for queried Office version '
			+ IntToStr(OfficeVersion) + ', extracted build number ' + build);
		OutBuild := StrToInt(build);
		result := true;
	end
	else
		Log('Did not find LastProduct key for Office version ' +
				IntToStr(OfficeVersion) + '.0.');
end;

/// Asserts if Office 2007 is installed. Does not check whether other Office
/// versions are concurrently installed.
function IsOffice2007Installed(): boolean;
begin
	result := IsWordVersionInstalled(12);
	if result then Log('Detected Office 2007.');
end;

/// Asserts if Office 2010 without service pack is installed.
/// For build number, see http://support.microsoft.com/kb/2121559/en-us
function IsOffice2010NoSpInstalled(): boolean;
var
	build: integer;
begin
	if GetOfficeBuild(14, build) then
	begin
		result := build = 4763; // 4763 is the original Office 2007 build
		if result then
			Log('Detected Office 2010 without service pack (v. 14.0, build 4763)')
		else
			Log('Detected Office 2010, apparently with some service pack (build ' +
					IntToStr(build) + ').');
	end;
end;

/// Checks if the VSTO runtime is installed. This is relevant if only
/// Word 2007 is installed. Since Office 2010, the CLR is
/// automatically included.
/// The presence of the VSTO runtime is indicated by the presence one of
/// four possible registry keys.
/// See: http://xltoolbox.sf.net/blog/2015/01/net-vsto-add-ins-getting-prerequisites-right
/// HKLM\SOFTWARE\Microsoft\VSTO Runtime Setup\v4R (32-bit)
/// HKLM\SOFTWARE\Wow6432Node\Microsoft\VSTO Runtime Setup\v4R (64-bit)
function IsVstorInstalled(): boolean;
var
	software, vstorPath: string;
begin
	software := 'SOFTWARE\';
	vstorPath := 'Microsoft\VSTO Runtime Setup\v4R';
	result := RegKeyExists(HKEY_LOCAL_MACHINE, software + GetWowNode + vstorPath);
end;

/// Checks if the .NET 4.0 (or 4.5) runtime is installed.
/// See https://msdn.microsoft.com/en-us/library/hh925568
function IsNetInstalled(): boolean;
begin
	result := RegKeyExists(HKEY_LOCAL_MACHINE, 
		'SOFTWARE\' + GetWowNode + 'Microsoft\NET Framework Setup\NDP\v4');
end;

/// Asserts if the VSTO runtime for .NET 4.0 redistributable needs to be
/// downloaded and installed.
/// If Office 2010 SP 1 or newer is installed on the system, the VSTOR runtime
/// will be automagically configured as long as the .NET 4.0 runtime is present.
/// Office 2007 and Office 2010 without service pack need the VSTO runtime
/// redistributable. For details, see:
/// http://xltoolbox.sf.net/blog/2015/01/net-vsto-add-ins-getting-prerequisites-right
function NeedToInstallVstor(): boolean;
begin
	result := false; // Default for Office 2010 SP1 or newer
	if IsOffice2007Installed or IsOffice2010NoSpInstalled then
		result := not IsVstorInstalled;
end;

/// Checks if all required prerequisites are met, i.e. if the necessary
/// runtimes are installed on the system
function PrerequisitesAreMet(): boolean;
begin
	// Cache check result to avoid multiple registry lookups and log messages
	if not prerequisitesChecked then
	begin
		prerequisitesMet := IsNetInstalled and not NeedToInstallVstor;
		prerequisitesChecked := true;
	end;
	result := prerequisitesMet;
end;

/// Checks if a file exists and has a valid Sha1 sum.
function IsFileValid(file: string; expectedSha1: string): boolean;
var
	actualSha1: string;
begin
	try
		if FileExists(file) then
		begin
			actualSha1 := GetSHA1OfFile(file);
		end;
	finally
		result := actualSha1 = expectedSha1;
	end;
end;

/// Returns the path to the downloaded VSTO runtime installer.
function GetVstorInstallerPath(): string;
begin
	result := ExpandConstant('{%temp}\vstor_redist_40.exe');
end;

/// Returns the path to the downloaded .NET runtime installer.
function GetNetInstallerPath(): string;
begin
	result := ExpandConstant('{%temp}\dotNetFx40_Full_x86_x64.exe');
end;

/// Checks if the VSTO runtime redistributable setup file has already been
/// downloaded by comparing SHA1 checksums.
function IsVstorDownloaded(): boolean;
begin
	result := IsFileValid(GetVstorInstallerPath, '{#VSTORSHA1}');
end;

/// Checks if the .NET runtime setup file has already been
/// downloaded by comparing SHA1 checksums.
function IsNetDownloaded(): boolean;
begin
	result := IsFileValid(GetNetInstallerPath, '{#DOTNETSHA1}');
end;

/// Determines if the VSTO runtime needs to be downloaded.
/// This is not the case it the runtime is already installed,
/// or if there is a file with a valid Sha1 sum.
function NeedToDownloadVstor: boolean;
begin
	result := NeedToInstallVstor and not IsVstorDownloaded;
end;

/// Determines if the VSTO runtime needs to be downloaded.
/// This is not the case it the runtime is already installed,
/// or if there is a file with a valid Sha1 sum.
function NeedToDownloadNet: boolean;
begin
	result := not IsNetInstalled and not IsNetDownloaded;
end;

/// Determines whether or not a system-wide installation
/// is possible. This depends on whether the current user
/// is an administrator, and whether the hotfix KB976477
/// is present on the system if Word 2007 is the only version
/// of Word that is present (without that hotfix, Word
/// 2007 does not load add-ins that are registered in the
/// HKLM hive).
function CanInstallSystemWide(): boolean;
begin
	if IsAdminLoggedOn then
	begin
		if IsOnlyWord2007Installed then
		begin
			result := IsHotfixInstalled;
		end
		else
		begin
			result := true;
		end;
	end
	else
	begin
		result := false;
	end;
end;

procedure CreateSingleOrAllUserPage();
begin
	PageSingleOrMultiUser := CreateInputOptionPage(wpLicense,
		CustomMessage('SingleOrMulti'), CustomMessage('SingleOrMultiSubcaption'),
		CustomMessage('SingleOrMultiDesc'), True, False);
	PageSingleOrMultiUser.Add(CustomMessage('SingleOrMultiSingle'));
	PageSingleOrMultiUser.Add(CustomMessage('SingleOrMultiAll'));
	if CanInstallSystemWide then
	begin
		PageSingleOrMultiUser.Values[1] := True;
	end
	else
	begin
		PageSingleOrMultiUser.Values[0] := True;
	end;
end;

procedure CreateCannotInstallPage();
begin
	PageCannotInstall := CreateInputOptionPage(wpWelcome,
		CustomMessage('CannotInstallCaption'),
		CustomMessage('CannotInstallDesc'),
		CustomMessage('CannotInstallMsg'), True, False);
	PageCannotInstall.Add(CustomMessage('CannotInstallCont'));
	PageCannotInstall.Add(CustomMessage('CannotInstallAbort'));
	PageCannotInstall.Values[1] := True;
end;

procedure CreateDownloadInfoPage();
var
	bytes: Int64;
	mib: Single;
	size: String;
begin
	if idpGetFilesSize(bytes) then
	begin
		mib := bytes / 1048576;
		size := Format('%.1f', [ mib ]);
	end
	else
	begin
		size := '[?]'
	end;
	PageDownloadInfo := CreateOutputMsgPage(PageSingleOrMultiUser.Id,
		CustomMessage('RequiredCaption'),
		CustomMessage('RequiredDesc'),
		Format(CustomMessage('RequiredMsg'), [idpFilesCount, size]));
end;

procedure CreateInstallInfoPage();
begin
	PageInstallInfo := CreateOutputMsgPage(PageDownloadInfo.Id,
		CustomMessage('InstallCaption'),
		CustomMessage('InstallDesc'),
		CustomMessage('InstallMsg'));
end;


function InitializeSetup(): boolean;
var
	minWordInstalled: boolean;
	i: integer;
begin
	// Determine if Word 2007 or newer is installed (absolute requirement
	// for this VSTO add-in). Word 2007 ist version 12.0.
	for i := 12 to maxWord do
	begin
		minWordInstalled := minWordInstalled or IsWordVersionInstalled(i);
	end;

	if not minWordInstalled then
	begin
		result := False;
		Log('Informing user that Word 2007 or newer is required.');
		MsgBox(CustomMessage('Word2007Required'), mbInformation, MB_OK);
	end
	else
	begin
		result := True;
	end
end;
	
procedure InitializeWizard();
begin
	// CreateDevelopmentInfoPage;
	CreateSingleOrAllUserPage;
	if not PrerequisitesAreMet then
	begin
		Log('Not all prerequisites are met...');
		CreateCannotInstallPage;
		if NeedToDownloadNet then
		begin
			Log('Mark {#DOTNETURL} for download.');
			idpAddFileSize('{#DOTNETURL}', GetNetInstallerPath, 50449456);
		end;
		if NeedToDownloadVstor then
		begin
			Log('Mark {#VSTORURL} for download.');
			idpAddFileSize('{#VSTORURL}', GetVstorInstallerPath, 40123576);
		end;
		CreateDownloadInfoPage;
		CreateInstallInfoPage;
		idpDownloadAfter(PageDownloadInfo.Id);
	end;
end;

function ExecuteNetSetup(): boolean;
var
	exitCode: integer;
begin
	result := true;
	if not IsNetInstalled then
	begin
		if IsNetDownloaded then
		begin
			Log('Valid .NET runtime download found, installing.');
			Exec(GetNetInstallerPath, '/norestart',
				'', SW_SHOW, ewWaitUntilTerminated, exitCode);
			BringToFrontAndRestore;
			if not IsNetInstalled then
			begin
				MsgBox(CustomMessage('StillNotInstalled'), mbInformation, MB_OK);
				result := False;
			end;
		end
		else
		begin
			Log('No or invalid .NET runtime download found, will not install.');
			MsgBox(CustomMessage('DownloadNotValidated'), mbInformation, MB_OK);
			result := False;
		end;
	end; // not IsNetInstalled
end;

function ExecuteVstorSetup(): boolean;
var
	exitCode: integer;
begin
	result := true;
	if NeedToInstallVstor then
	begin
		if IsVstorDownloaded then
		begin
			Log('Valid VSTO runtime download found, installing.');
			Exec(GetVstorInstallerPath, '/norestart', '', SW_SHOW,
				ewWaitUntilTerminated, exitCode);
			BringToFrontAndRestore;
			if not IsVstorInstalled then
			begin
				MsgBox(CustomMessage('StillNotInstalled'), mbInformation, MB_OK);
				result := False;
			end;
		end
		else
		begin
			Log('No or invalid VSTO runtime download found, will not install.');
			MsgBox(CustomMessage('DownloadNotValidated'), mbInformation, MB_OK);
			result := False;
		end;
	end; // not IsVstorInstalled
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
	result := True;
	{
	if not WizardSilent then
	begin
		if CurPageID = PageDevelopmentInfo.Id then
		begin
			if PageDevelopmentInfo.Values[0] = False then
			begin
				Log('Requesting user to acknowledge use of a developmental version.');
				MsgBox(CustomMessage('DevVerMsgBox'), mbInformation, MB_OK);
				result := False;
			end;
		end;
	end;
	}
	
	if not PrerequisitesAreMet then
	begin
		// Abort the installation if any of the runtimes are missing, the user
		// is not an administrator, and requested to abort the installation.
		if CurPageID = PageCannotInstall.ID then
		begin
			if PageCannotInstall.Values[1] = true then
			begin
				WizardForm.Close;
				result := False;
			end
			else
			begin
				Log('Non-admin user continues although not all required runtimes are installed.');
			end;
		end;

		if CurPageID = PageInstallInfo.ID then
		begin
		  // Return true if installation succeeds (or no installation required)
			result := ExecuteNetSetup and ExecuteVstorSetup;
		end; 
	end; // not PrerequisitesAreMet
end;

/// Skips the folder selection, single/multi user, and ready pages for
/// normal users without power privileges.
/// This function also takes care of dynamically determining what wizard
/// pages to install, depending on the current system setup and whether
/// the current user is an administrator.
function ShouldSkipPage(PageID: Integer): Boolean;
begin
	result := False;
	
	if not PrerequisitesAreMet then
	begin
		// The PageDownloadCannotInstall will only have been initialized if
		// PrerequisitesAreMet returned false.
		if PageID = PageCannotInstall.ID then
		begin
			// Skip the warning if the user is an admin.
			result := IsAdminLoggedOn 
			if not result then
			begin
				Log('Warning user that required runtimes cannot be installed due to missing privileges');
			end;
		end;
		
		if PageID = PageDownloadInfo.ID then
		begin
			// Skip page informing about downloads if no files need to be downloaded.
			result := idpFilesCount = 0;
		end;
	
		if PageID = IDPForm.Page.ID then
		begin
			// Skip downloader plugin if there are no files to download.
			result := idpFilesCount = 0;
			if not result then
			begin
				Log('Beginning download of ' + IntToStr(idpFilesCount) + ' file(s).');
			end;
		end;
	end; // not PrerequisitesAreMet
	
	if PageID = PageSingleOrMultiUser.ID then
	begin
		if IsOnlyWord2007Installed then
		begin
			Log('Only Word 2007 appears to be installed on this system.');
			if IsHotfixInstalled then
			begin
				Log('Hotfix KB976477 found; can install for all users.');
			end
			else
			begin
				Log('Hotfix KB976477 not found; cannot install for all users.');
			end;
		end
		else
		begin
			Log('Word 2010 or newer found on this system.');
		end;
		if CanInstallSystemWide then
		begin
			Log('Offer installation for all users.');
			result := False;
		end
		else
		begin
			Log('Offer single-user installation only.');
			result := True;
		end;
	end;
	
	if (PageID = wpSelectDir) or (PageID = wpReady) then
	begin
		// Do not show the pages to select the target directory, and the ready 
		// page if the user is not an admin.
		result := not IsAdminLoggedOn;
	end
end;

/// Helper function that evaluates the custom PageSingleOrMultiUser page.
function IsMultiUserInstall(): Boolean;
begin
	result := PageSingleOrMultiUser.Values[1];
end;

/// Suggest an initial target directory depending on whether
/// the installer is run with admin privileges.
function SuggestInstallDir(Param: string): string;
var
	dir: string;
begin
	if CanInstallSystemWide then
	begin
		dir := ExpandConstant('{pf}');
	end
	else
	begin
		dir := ExpandConstant('{userappdata}');
	end;
	result := AddBackslash(dir) + 'zaaReloaded';
end;

/// Converts backslashes to forward slashes.
function ConvertSlash(Value: string): string;
begin
	StringChangeEx(Value, '\', '/', True);
	Result := Value;
end;