Setup.iss

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define ApplicationName 'ESP8266 Wizard'
#define ApplicationVersion '1.4.3'
#define OldAppId '{3793A16D-841C-4E6C-931B-9D5AD44410C9}'
#define Revision 'OpenSource (1.0)'
#define SourceURL 'https://github.com/fsmoke/ESP8266-Wizard-Package'

[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.)
AppId={#ApplicationName}
AppName={#ApplicationName}
AppVersion={#ApplicationVersion}
AppPublisher=Mathieu St-Laurent - Relentless research lab
DefaultDirName={pf}\Relentless.rad\ESP8266Wizard
DisableDirPage=false
DisableProgramGroupPage=yes
OutputDir=Release
OutputBaseFilename={#ApplicationName} {#ApplicationVersion} - {#Revision}
SetupIconFile=ESPressif.ico
UninstallDisplayIcon=ESPressif.ico
Compression=lzma
SolidCompression=yes
WizardImageFile=WIFI.bmp
WizardSmallImageFile=WIFISmall.bmp

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

[Files]
Source: Distrib\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: Temp\bin\ESP8266Wizard\Release\ESP8266Wizard.vsix; DestDir: {app}; Flags: ignoreversion

[Run]

[UninstallRun]

[Code]
var
	LicenseLinkLabel: TLabel;
	//VSOptionsPage: TInputOptionWizardPage;
	VSIXInstallerPaths: TStrings;
	VSVersions: TStrings;

//procedure ClickVSVersions(Sender: TObject);
//var
//	i: Integer;
//	f: Boolean;
//begin
//	f := False;
//	for i := 0 to VSOptionsPage.CheckListBox.Items.Count - 1 do
//		if (VSOptionsPage.Values[i]) then
//		begin
//			f := True;
//			break;
//		end;
//	Wizardform.NextButton.Enabled := f;
//end;

[Code]
function AllocConsole(
     ): BOOL;
     external 'AllocConsole@kernel32.dll stdcall';

procedure FillVsVersions();
var
    sRegKey: String;
    sRegValue: String;
	sTmpFileName: String;
	sExecStdout: AnsiString;
	ResultCode: integer;
begin

	//check vs2017
	sRegKey := 'VisualStudio.DTE.15.0';
	if (RegKeyExists(HKCR, sRegKey)) then
	begin
		sRegKey := 'SOFTWARE\Microsoft\VisualStudio\SxS\VS7';
		if (RegQueryStringValue(HKLM, sRegKey, '15.0', sRegValue)) then
		begin
			VSVersions.Add('VS2017');
			VSIXInstallerPaths.Add(sRegValue + 'Common7\IDE\');
		end;
	end;
	//check vs2019
	sRegKey := 'VisualStudio.DTE.16.0';
	if (RegKeyExists(HKCR, sRegKey)) then
	begin
    //for debug
	  //AllocConsole();
		sTmpFileName := ExpandConstant('{tmp}') + '\vswhere_results.txt';
    sRegKey := ExpandConstant('{cmd}');
		if Exec(ExpandConstant('{cmd}'), 
      '/S /C ""' + ExpandConstant('{commonpf32}') + '\Microsoft Visual Studio\Installer\vswhere.exe" ' + 
      '-latest -prerelease -products * -property enginePath > "' + sTmpFileName + '""',
      '', SW_HIDE,
			ewWaitUntilTerminated, ResultCode) then
	  begin
      if LoadStringFromFile(sTmpFileName, sExecStdout) then
      begin
        while (sExecStdout[length(sExecStdout)] = #$A) or (sExecStdout[length(sExecStdout)] = #$D) do
          Delete(sExecStdout,length(sExecStdout), 1);
        VSVersions.Add('VS2019');
        VSIXInstallerPaths.Add(sExecStdout + '\');
      end;
      DeleteFile(sTmpFileName);
    end;
	end;
end;

procedure OpenBrowser(Url: string);
var
  ErrorCode: Integer;
begin
  ShellExec('open', Url, '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure SourcesLinkClick(Sender: TObject);
begin
  OpenBrowser('{#SourceURL}');
end;

procedure InitializeWizard;
var
	//i,ind: Integer;
	SourcesLink: TLabel;
begin
	LicenseLinkLabel := TLabel.Create(WizardForm);
	LicenseLinkLabel.Parent := WizardForm;
	LicenseLinkLabel.Left := 8;
	LicenseLinkLabel.Top := WizardForm.ClientHeight - LicenseLinkLabel.ClientHeight - 32;
	LicenseLinkLabel.Caption := '{#SetupSetting("AppPublisher")}' + #13#10 + 'Revision by : {#Revision}';

	SourcesLink := TLabel.Create(WizardForm);
	SourcesLink.Parent := WizardForm;
	SourcesLink.Left := LicenseLinkLabel.Left;
	SourcesLink.Top := LicenseLinkLabel.Top + LicenseLinkLabel.Height;
	SourcesLink.Caption := 'Get source code';
	SourcesLink.OnClick := @SourcesLinkClick;
	SourcesLink.ParentFont := True;
	SourcesLink.Font.Style := SourcesLink.Font.Style + [fsUnderline, fsBold];
	SourcesLink.Font.Color := clBlue;
	SourcesLink.Cursor := crHand;


	//VSOptionsPage := CreateInputOptionPage(wpSelectComponents,
	//	'Visual Studio version', 'Select version of Visual Studio',	'Select version of Visual Studio', false, false);
	//VSOptionsPage.CheckListBox.OnClickCheck := @ClickVSVersions;

	//VSOptionsPage.CheckListBox.Enabled := False;
	//for i := 0 to VSVersions.Count - 1 do
	//begin
	//	ind := VSOptionsPage.Add(VSVersions[i]);
	//	VSOptionsPage.Values[ind] := True;
	//end;
end;

function InitializeSetup: Boolean;
var
    sRegKey: String;
    sUnInstall: String;
    sVersion: String;
    Prompt: Integer;
    //OLD Versions are deprecated
    //VSIXBefore: Boolean;
begin
	VSIXInstallerPaths := TStringList.Create();
	VSVersions := TStringList.Create();
	FillVsVersions();

	sRegKey := 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#OldAppId}_is1';
	if (RegQueryStringValue(HKLM, sRegKey, 'UninstallString', sUnInstall)) then
		RegQueryStringValue(HKLM, sRegKey, 'DisplayVersion', sVersion);

	sRegKey := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppId")}_is1');
	if (RegQueryStringValue(HKLM, sRegKey, 'UninstallString', sUnInstall)) then
		RegQueryStringValue(HKLM, sRegKey, 'DisplayVersion', sVersion);

	if (sUnInstall <> '') then
	begin
		if (sVersion > '{#SetupSetting("AppVersion")}') then
		begin
			MsgBox('Current version of ESP8266 Wizard was newer.'#13'Install will be canceled', mbInformation, MB_OK);
			Result:= False;
		end else
		begin
			//OLD Versions are deprecated
			//VSIXBefore:=False;
			//if (sVersion < '1.2.3') then VSIXBefore:=True;

			if (sVersion = '{#SetupSetting("AppVersion")}') then
				Prompt:= MsgBox(ExpandConstant('Same version was detected. Do you want to reinstall it?'), mbInformation, MB_YESNO)
			else
				Prompt:= MsgBox(ExpandConstant('An older version was detected. Do you want to uninstall it?'), mbInformation, MB_YESNO);

			if (Prompt = IDYES) then
			begin
				sUnInstall:= RemoveQuotes(sUnInstall);
				Exec(ExpandConstant(sUnInstall), '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, Prompt);

				//OLD Versions are deprecated
				//if (VSIXBefore) then
				//begin
				// ExtractTemporaryFiles('{app}\VSIXInstaller.exe*');
				//  ExtractTemporaryFiles('{app}\VSIXAssemblies\*');
				//  ExtractTemporaryFiles('{app}\PkgdefMgmt.dll');
				//  ExtractTemporaryFiles('{app}\VSHiveStub.exe');
				//  Exec(ExpandConstant('{tmp}\')+'{app}\VSIXInstaller', '/uninstall:"ESP8266Wizard.Mathieu St-Laurent.2369a963-05dc-4156-8143-c93633763702"', '', SW_SHOW, ewWaitUntilTerminated, Prompt);
				//end;

				Result:= True;
			end else
				Result:= False;
		end
	end else
		Result:= True;
end;

function PrepareToInstall(var NeedsRestart: Boolean): String;
var
	Prompt: Integer;
begin
	NeedsRestart := False;
	if (VSIXInstallerPaths.Count > 0) then
	begin
		//MsgBox(VSIXInstallerPaths[0], mbInformation, MB_OK);
		ExtractTemporaryFiles('{app}\ESP8266Wizard.vsix');

		//MsgBox(ExpandConstant('{tmp}\')+'{app}\ESP8266Wizard.vsix', mbInformation, MB_OK);

		Exec(VSIXInstallerPaths[0] + 'VSIXInstaller',
			ExpandConstant('{tmp}\')+'{app}\ESP8266Wizard.vsix',
			'', SW_SHOW, ewWaitUntilTerminated, Prompt);
	end;
	Result:= '';
end;

function InitializeUninstall: Boolean;
var
	Prompt: Integer;
begin
	VSIXInstallerPaths := TStringList.Create();
	VSVersions := TStringList.Create();
	FillVsVersions();
	if (VSIXInstallerPaths.Count > 0) then
	begin
		Exec(VSIXInstallerPaths[0] + 'VSIXInstaller',
			'/uninstall:"ESP8266Wizard.Mathieu St-Laurent.2369a963-05dc-4156-8143-c93633763702"',
			'', SW_SHOW, ewWaitUntilTerminated, Prompt);
	end;
	Result:= True;
end;