; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "@PROJECT_TITLE@"
#define MyAppVersion "@PROJECT_VERSION@"
#define MyAppVersionText "@_VERSION@"
#define MyAppPublisher "Xaymars Technology Workshop"
#define MyAppURL "https://xaymar.com/"
#define MyAppCopyright "@PROJECT_COPYRIGHT@"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

; Application Information
AppId={{DE56A03A-C8A4-474B-83B0-CFD270262D38}}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
AppMutex=@PROJECT_NAME@,Global\@PROJECT_NAME@

; Versioning
VersionInfoProductName={#MyAppName}
VersionInfoProductVersion={#MyAppVersion}
VersionInfoVersion={#MyAppVersion}
VersionInfoProductTextVersion={#MyAppVersionText}
VersionInfoTextVersion={#MyAppVersionText}
VersionInfoCompany={#MyAppPublisher}
VersionInfoCopyright={#MyAppCopyright}
VersionInfoDescription={#MyAppName} Setup

; Architecture (Platform is always Windows)
ArchitecturesInstallIn64BitMode=x64 arm64 ia64
ArchitecturesAllowed=@ARCH@

; Installation Modes
UsePreviousPrivileges=no
PrivilegesRequired=admin
PrivilegesRequiredOverridesAllowed=dialog commandline

; Wizard Information
WizardStyle=modern
WizardResizable=yes
SetupIconFile="@PROJECT_SOURCE_DIR@/media/icon.ico"
SetupMutex=@PROJECT_NAME@-Setup,Global\@PROJECT_NAME@-Setup
UninstallDisplayIcon={uninstallexe}

; Directory Choices
UsePreviousAppDir=no
DisableDirPage=no
DirExistsWarning=no
DefaultDirName={code:GetDefaultDirectory}
AppendDefaultDirName=no
DefaultGroupName={#MyAppName}
AppendDefaultGroupName=yes

; Other Information
Uninstallable=yes
CreateUninstallRegKey=not IsPortableMode()
AllowNoIcons=yes
LicenseFile="@ISS_SOURCE_DIR@/LICENSE"
OutputDir="@ISS_PACKAGE_DIR@"
OutputBaseFilename=@PACKAGE_NAME@-@_PACKAGE_SUFFIX_OVERRIDE@
Compression=lzma2/ultra64
SolidCompression=yes
LZMAAlgorithm=1

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Files]
Source: "@ISS_FILES_DIR@/data/obs-plugins/@PROJECT_NAME@/*"; DestDir: "{code:GetOutputDataDir}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "@ISS_FILES_DIR@/obs-plugins/@D_PLATFORM_BITS@bit/*"; DestDir: "{code:GetOutputBinaryDir}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "@PROJECT_SOURCE_DIR@/templates/windows/msvc-redist-helper.exe"; DestDir: "{app}"; DestName: "msvc-redist-helper.exe"; Flags: ignoreversion dontcopy noencryption
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

[Code]
// ------------------------------------------------------------------------------------------------------------------ //
var
	oPortablePageStaticChoice: TNewRadioButton;
	oPortablePagePortableChoice: TNewRadioButton;

// InnoSetup
procedure InitializeWizard; forward;
function ShouldSkipPage(PageID: Integer): Boolean; forward;
function PrepareToInstall(var NeedsRestart: Boolean): String; forward;
function GetDefaultDirectory(Value: String): String; forward;
function GetOutputBinaryDir(Value: String): String; forward;
function GetOutputDataDir(Value: String): String; forward;

// Which installation mode is selected?
function IsPortableMode(): Boolean; forward;

// Other Metadata
function AppRegistryKey(): String; forward;
function GetUninstallerPath(): String; forward;
function IsUpgrade(): Boolean; forward;
function UninstallOldVersion(): Integer; forward;

// Mode Page
function CreatePortablePage: TWizardPage; forward;
procedure OnPortablePagePortableChoiceClick(Sender: TObject); forward;
procedure OnPortablePageStaticChoiceClick(Sender: TObject); forward;


// ------------------------------------------------------------------------------------------------------------------ //
procedure InitializeWizard;
var
	oPortablePage: TWizardPage;
begin
	oPortablePage := CreatePortablePage();
end;

// ------------------------------------------------------------------------------------------------------------------ //
function ShouldSkipPage(PageID: Integer): Boolean;
begin
	Result := False;
end;

// ------------------------------------------------------------------------------------------------------------------ //
function PrepareToInstall(var NeedsRestart: Boolean): String;
var
	iResultCode: Integer;
begin
	// Attempt to remove old version if it exists.
	if (IsUpgrade()) then begin
		UninstallOldVersion();
	end;

	// Also ensure that we have the necessary prerequisites installed to run the program.
	ExtractTemporaryFile('msvc-redist-helper.exe');
	Exec(ExpandConstant('{tmp}\msvc-redist-helper.exe'), '2019', '', SW_HIDE, ewWaitUntilTerminated, iResultCode);
end;

// ------------------------------------------------------------------------------------------------------------------ //
function GetDefaultDirectory(Value: String): String;
var
	sPath: String;
begin
	// Otherwise, try and figure out where the previous installation of the same type went to.
	if (RegQueryStringValue(HKA64, AppRegistryKey(), 'InstallLocation', sPath)) then begin
		Result := sPath;
		exit;
	end;

	// Install to ProgramData.
	Result := ExpandConstant('{commonappdata}\obs-studio\plugins\@PROJECT_NAME@');

	exit;
end;

// ------------------------------------------------------------------------------------------------------------------ //
function GetOutputBinaryDir(Value: String): String;
var
	sPath: String;
begin
	if (IsPortableMode()) then begin
		sPath := ExpandConstant('{app}\obs-plugins\@D_PLATFORM_BITS@bit\');
	end else begin
		sPath := ExpandConstant('{app}\bin\@D_PLATFORM_BITS@bit\');
	end;
	Result := sPath;
end;

function GetOutputDataDir(Value: String): String;
var
	sPath: String;
begin
	if (IsPortableMode()) then begin
		sPath := ExpandConstant('{app}\data\obs-plugins\@PROJECT_NAME@\');
	end else begin
		sPath := ExpandConstant('{app}\data\');
	end;
	Result := sPath;
end;

// ------------------------------------------------------------------------------------------------------------------ //
function GetUninstallerPath(): String;
var
	sRegistryKey: String;
	sUninstallerPath: String;
begin
	sRegistryKey := AppRegistryKey();

	RegQueryStringValue(HKLM64, sRegistryKey, 'UninstallString', sUninstallerPath);

	if (sUninstallerPath = '') then
		RegQueryStringValue(HKCU64, sRegistryKey, 'UninstallString', sUninstallerPath);

	if (sUninstallerPath = '') then
		RegQueryStringValue(HKLM32, sRegistryKey, 'UninstallString', sUninstallerPath);

	if (sUninstallerPath = '') then
		RegQueryStringValue(HKCU32, sRegistryKey, 'UninstallString', sUninstallerPath);

	Result := sUninstallerPath;
end;

// ------------------------------------------------------------------------------------------------------------------ //
function IsPortableMode(): Boolean;
begin
	Result := oPortablePagePortableChoice.Checked;
end;

// ------------------------------------------------------------------------------------------------------------------ //
function AppRegistryKey(): String;
begin
	Result := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting('AppId')}_is1');
end;

// ------------------------------------------------------------------------------------------------------------------ //
function IsUpgrade(): Boolean;
begin
	Result := (not IsPortableMode()) and (GetUninstallerPath() <> '');
end;

// ------------------------------------------------------------------------------------------------------------------ //
function UninstallOldVersion(): Integer;
var
	sUninstallerPath: String;
	iResultCode: Integer;
begin
	Result := 0;
	sUninstallerPath := GetUninstallerPath();
	if (sUninstallerPath <> '') then begin
		sUninstallerPath := RemoveQuotes(sUninstallerPath);
		if Exec(sUninstallerPath, '/VERYSILENT /NORESTART /SUPPRESSMSGBOXES', '', SW_HIDE, ewWaitUntilTerminated, iResultCode) then begin
			Result := iResultCode
		end else begin
			Result := 1
		end;
	end;
end;

// ------------------------------------------------------------------------------------------------------------------ //
procedure OnPortablePagePortableChoiceClick(Sender: TObject);
begin
	oPortablePageStaticChoice.Checked := False;
	oPortablePagePortableChoice.Checked := True;
end;

procedure OnPortablePageStaticChoiceClick(Sender: TObject);
begin
	if (not oPortablePageStaticChoice.Enabled) then begin
		OnPortablePagePortableChoiceClick(Sender);
	end else begin
		oPortablePageStaticChoice.Checked := True;
		oPortablePagePortableChoice.Checked := False;
	end;
end;

function CreatePortablePage: TWizardPage;
var
	oPage: TWizardPage;
	oStaticPanel: TPanel;
	oStaticChoice: TNewRadioButton;
	oStaticText: TLabel;
	oStaticWarningText: TLabel;
	oPortablePanel: TPanel;
	oPortableChoice: TNewRadioButton;
	oPortableText: TLabel;
begin
	// Build a page that asks a user if they want to use Movable or Static installation.
	oPage := CreateCustomPage(wpLicense,
		'Installation Type',
		'Select how to install StreamFX on your System');

	oStaticPanel := TPanel.Create(oPage);
	oStaticPanel.Parent := oPage.Surface;
	oStaticPanel.ParentBackground := False;
	oStaticPanel.Left := ScaleX(5);
	oStaticPanel.Top := ScaleY(5);
	oStaticPanel.Width := oPage.SurfaceWidth - ScaleX(10);
	oStaticPanel.Height := ScaleY(100);
	oStaticPanel.Anchors := [akLeft, akTop, akRight];
	oStaticPanel.Color := clWindow;
	oStaticPanel.BevelKind := bkTile;
	oStaticPanel.BevelInner := bvNone;
	oStaticPanel.BevelOuter := bvRaised;
	oStaticPanel.BevelWidth := 1;
	oStaticPanel.OnClick := @OnPortablePageStaticChoiceClick;

	oStaticChoice := TNewRadioButton.Create(oStaticPanel);
	oPortablePageStaticChoice := oStaticChoice;
	oStaticChoice.Parent := oStaticPanel;
	oStaticChoice.ParentBackground := False;
	oStaticChoice.Left := ScaleX(5);
	oStaticChoice.Top := ScaleY(5);
	oStaticChoice.Width := oStaticPanel.Width - ScaleX(10);
	oStaticChoice.Height := ScaleY(20);
	oStaticChoice.Anchors := [akLeft, akTop, akRight];
	oStaticChoice.Caption := 'Static';
	oStaticChoice.Font.Style := [fsBold];
	oStaticChoice.OnClick := @OnPortablePageStaticChoiceClick;

	oStaticText := TLabel.Create(oStaticPanel);
	oStaticText.Parent := oStaticPanel;
	oStaticText.AutoSize := False;
	oStaticText.Left := ScaleX(5);
	oStaticText.Top := ScaleY(5) + oStaticChoice.Top + oStaticChoice.Height;
	oStaticText.Width := oStaticPanel.Width - ScaleX(10);
	oStaticText.Height := oStaticPanel.Height - ScaleX(5) - oStaticText.Top;
	oStaticText.Anchors := [akLeft, akTop, akRight];
	oStaticText.WordWrap := True
	oStaticText.Caption := 'Install for use in a static version of OBS Studio, with all necessary features to support it.';
	oStaticText.OnClick := @OnPortablePageStaticChoiceClick;

	oPortablePanel := TPanel.Create(oPage);
	oPortablePanel.Parent := oPage.Surface;
	oPortablePanel.ParentBackground := False;
	oPortablePanel.Left := ScaleX(5);
	oPortablePanel.Top := ScaleY(5) + oStaticPanel.Top + oStaticPanel.Height;
	oPortablePanel.Width := oPage.SurfaceWidth - ScaleX(10);
	oPortablePanel.Height := ScaleY(100);
	oPortablePanel.Anchors := [akLeft, akTop, akRight];
	oPortablePanel.Color := clWindow;
	oPortablePanel.BevelKind := bkTile;
	oPortablePanel.BevelInner := bvNone;
	oPortablePanel.BevelOuter := bvRaised;
	oPortablePanel.BevelWidth := 1;
	oPortablePanel.OnClick := @OnPortablePagePortableChoiceClick;

	oPortableChoice := TNewRadioButton.Create(oPortablePanel);
	oPortablePagePortableChoice := oPortableChoice;
	oPortableChoice.Parent := oPortablePanel;
	oPortableChoice.ParentBackground := False;
	oPortableChoice.Left := ScaleX(5);
	oPortableChoice.Top := ScaleY(5);
	oPortableChoice.Width := oPortablePanel.Width - ScaleX(10);
	oPortableChoice.Height := ScaleY(20);
	oPortableChoice.Anchors := [akLeft, akTop, akRight];
	oPortableChoice.Caption := 'Portable';
	oPortableChoice.Font.Style := [fsBold];
	oPortableChoice.OnClick := @OnPortablePagePortableChoiceClick;

	oPortableText := TLabel.Create(oPortablePanel);
	oPortableText.Parent := oPortablePanel;
	oPortableText.AutoSize := False;
	oPortableText.Left := ScaleX(5);
	oPortableText.Top := ScaleY(5) + oPortableChoice.Top + oPortableChoice.Height;
	oPortableText.Width := oPortablePanel.Width - ScaleX(10);
	oPortableText.Height := oPortablePanel.Height - ScaleX(5) - oPortableText.Top;
	oPortableText.Anchors := [akLeft, akTop, akRight];
	oPortableText.WordWrap := True
	oPortableText.Caption := 'Install for use in portable or multi-environment scenarios, which require StreamFX to not be tied to the System itself. The uninstaller, automatic updates and other system-dependent features will be unavailable.';
	oPortableText.OnClick := @OnPortablePagePortableChoiceClick;

	if (not IsAdmin()) then begin
		oStaticWarningText := TLabel.Create(oStaticPanel);
		oStaticWarningText.Parent := oStaticPanel;
		oStaticWarningText.AutoSize := False;
		oStaticWarningText.Left := ScaleX(5);
		oStaticWarningText.Top := oPortablePanel.Height - ScaleY(5) - ScaleY(15);
		oStaticWarningText.Width := oPortablePanel.Width - ScaleX(10);
		oStaticWarningText.Height := ScaleY(15);
		oStaticWarningText.Anchors := [akLeft, akBottom, akRight];
		oStaticWarningText.WordWrap := True
		oStaticWarningText.Font.Color := clRed;
		oStaticWarningText.Font.Style := [fsBold];
		oStaticWarningText.Caption := 'Please launch the Installer as Administrator for static installations.';

		oStaticPanel.Enabled := False;
		oStaticChoice.Enabled := False;
		oStaticText.Enabled := False;

		oStaticChoice.Checked := False;
		oPortableChoice.Checked := True;
	end else begin
		oStaticChoice.Checked := True;
		oPortableChoice.Checked := False;
	end;

	Result := oPage;
end;