Added launcher to start setup, run, view readme and much more. This i…

…s to simplify use from Windows Start Menu

.gitignore

@@ -1,9 +1,11 @@
 hstwb-installer-settings.ini
+hstwb-installer-assigns.ini
 *.msi
 hstwb-installer*.zip
 *.wixpdb
 *.wixobj
 *.wxs
+*.log
 !hstwb-installer.wxs
 /packages/
 output/

launcher.cmd

@@ -0,0 +1 @@
+powershell -ExecutionPolicy Bypass -File launcher.ps1

launcher.ps1

@@ -0,0 +1,270 @@
+# Launcher
+# --------
+#
+# Author: Henrik Noerfjand Stengaard
+# Date:   2017-09-18
+#
+# A powershell script to launch HstWB Installer and ensure HstWB Installer for first time use.
+
+
+Param(
+	[Parameter(Mandatory=$false)]
+	[string]$settingsDir
+)
+
+
+Add-Type -AssemblyName System.Windows.Forms
+Add-Type -AssemblyName System.Drawing
+
+Import-Module (Resolve-Path('modules\version.psm1')) -Force
+
+
+function MessageDialog($title, $message)
+{
+    $buttons = [System.Windows.Forms.MessageBoxButtons]::OK
+    $icon = [System.Windows.Forms.MessageBoxIcon]::Information
+    [void][System.Windows.Forms.MessageBox]::Show($message, $title, $buttons, $icon)
+}
+
+# confirm dialog
+function ConfirmDialog($title, $message)
+{
+    $buttons = [System.Windows.Forms.MessageBoxButtons]::YesNo
+    $icon = [System.Windows.Forms.MessageBoxIcon]::Question
+    $result = [System.Windows.Forms.MessageBox]::Show($message, $title, $buttons, $icon)
+
+    if($result -eq 'Yes')
+    {
+        return $true
+    }
+
+    return $false
+}
+
+function Run($runFile, $settingsDir)
+{
+    try
+    {
+        & $runFile -settingsDir $settingsDir
+    }
+    catch
+    {
+        $errorFormatingString = "{0} : {1}`n{2}`n" +
+        "    + CategoryInfo          : {3}`n" +
+        "    + FullyQualifiedErrorId : {4}`n"
+
+        $errorFields = $_.InvocationInfo.MyCommand.Name,
+        $_.ErrorDetails.Message,
+        $_.InvocationInfo.PositionMessage,
+        $_.CategoryInfo.ToString(),
+        $_.FullyQualifiedErrorId
+
+        $message = $errorFormatingString -f $errorFields
+        $logFile = Join-Path $settingsDir -ChildPath "hstwb_installer.log"
+        Add-Content $logFile ("{0} | ERROR | {1}" -f (Get-Date -Format s), $message) -Encoding UTF8
+        Write-Host ""
+        Write-Error "HstWB Installer Run Failed: $message"
+        Write-Host ""
+        Write-Host "Press enter to continue"
+        Read-Host
+    }
+    Clear-Host
+}
+
+function Setup($setupFile, $settingsDir)
+{
+    try
+    {
+        & $setupFile -settingsDir $settingsDir
+    }
+    catch
+    {
+        $errorFormatingString = "{0} : {1}`n{2}`n" +
+        "    + CategoryInfo          : {3}`n" +
+        "    + FullyQualifiedErrorId : {4}`n"
+
+        $errorFields = $_.InvocationInfo.MyCommand.Name,
+        $_.ErrorDetails.Message,
+        $_.InvocationInfo.PositionMessage,
+        $_.CategoryInfo.ToString(),
+        $_.FullyQualifiedErrorId
+
+        $message = $errorFormatingString -f $errorFields
+        $logFile = Join-Path $settingsDir -ChildPath "hstwb_installer.log"
+        Add-Content $logFile ("{0} | ERROR | {1}" -f (Get-Date -Format s), $message) -Encoding UTF8
+        Write-Host ""
+        Write-Error "HstWB Installer Setup Failed: $message"
+        Write-Host ""
+        Write-Host "Press enter to continue"
+        Read-Host
+    }
+    Clear-Host
+}
+
+function Settings($settingsFile)
+{
+    Start-Process "Notepad.exe" "$settingsFile" -Wait
+}
+
+function Assigns($assignsFile)
+{
+    Start-Process "Notepad.exe" "$assignsFile" -Wait
+}
+
+function GuiMenu($title, $options)
+{
+    $hash = [hashtable]::Synchronized(@{}) 
+    $hash.option = $null
+
+    $pfc = New-Object System.Drawing.Text.PrivateFontCollection
+    $pfc.AddFontFile($ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath('fonts\TopazPlus_a1200_v1.0.ttf'))
+
+    $buttonFont = New-Object System.Drawing.Font($pfc.Families[0],14)
+
+    $blueColor = [System.Drawing.Color]::FromArgb(0, 85, 170)
+
+    $width = 300;
+
+    $form = New-Object System.Windows.Forms.Form
+    $form.StartPosition = "CenterScreen"
+    $form.FormBorderStyle = 'None'
+    $form.MinimizeBox = $False
+    $form.MaximizeBox = $False
+    $form.WindowState = "Normal"
+    $form.SizeGripStyle = "Hide"
+    $form.Icon = New-Object System.Drawing.Icon ($ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath('hstwb_installer.ico'))
+    $form.ClientSize = New-Object System.Drawing.Size ($width, (100 + ($options.Count * 70)))
+    $form.BackColor = $blueColor
+
+    $captionLabel = New-Object System.Windows.Forms.Label
+    $captionLabel.AutoSize = $false
+    $captionLabel.TextAlign = 'MiddleCenter'
+    $captionLabel.Size = New-Object System.Drawing.Size ($width, 30)
+    $captionLabel.Location = New-Object System.Drawing.Point(0, 0)
+    $captionLabel.Text = "HstWB Installer v{0}" -f (HstwbInstallerVersion)
+    $captionLabel.Font = $buttonFont
+    $captionLabel.ForeColor = $blueColor
+    $captionLabel.BackColor = "White"
+    $captionLabel.Anchor = "Left", "Top", "Right"
+    $form.Controls.Add($captionLabel)
+
+    $titleLabel = New-Object System.Windows.Forms.Label
+    $titleLabel.AutoSize = $false
+    $titleLabel.TextAlign = 'MiddleCenter'
+    $titleLabel.Location = New-Object System.Drawing.Point(0, 40)
+    $titleLabel.Text = $title
+    $titleLabel.Size = New-Object System.Drawing.Size ($width, 50)
+    $titleLabel.Font = $buttonFont
+    $titleLabel.ForeColor = "White"
+    $titleLabel.Anchor = "Left", "Top", "Right"
+    $form.Controls.Add($titleLabel)
+
+    $positionY = 100
+
+    foreach ($option in $options)
+    {
+        $button = New-Object System.Windows.Forms.Button
+        $button.Location = New-Object System.Drawing.Point(20, $positionY)
+        $button.Text = $option
+        $button.Size = New-Object System.Drawing.Size (($width - 40), 50)
+        $button.Font = $buttonFont
+        $button.ForeColor = $blueColor
+        $button.BackColor = "White"
+        $button.Anchor = "Left", "Top", "Right"
+
+        $button.Add_Click({
+            $form.Close()
+            $hash.option = $option
+        }.GetNewClosure())
+        $button.Add_GotFocus({
+            $button.BackColor = [System.Drawing.Color]::FromArgb(210, 210, 210);
+        }.GetNewClosure())
+        $button.Add_LostFocus({
+            $button.BackColor = "White";
+        }.GetNewClosure())
+
+        $form.Controls.Add($button)
+
+        $positionY += 70
+    }
+
+    [void]$form.ShowDialog()
+
+    return $hash.option
+}
+
+function LauncherMenu($hstwb)
+{
+    do
+    {
+        $option = GuiMenu "Launcher" @('Setup', 'Advanced', 'Extra', 'Help', 'Exit')
+        switch ($option)
+        {
+            "Setup" { Setup $hstwb.Paths.SetupFile $hstwb.Paths.SettingsDir }
+            "Advanced" { AdvancedMenu $hstwb }
+            "Extra" { ExtraMenu $hstwb }
+            "Help" { HelpMenu $hstwb }
+        }
+    } while ($option -ne $null -and $option -ne 'Exit')    
+}
+
+function AdvancedMenu($hstwb)
+{
+    do
+    {
+        $option = GuiMenu "Advanced" @('Run', 'Settings', 'Assigns', 'Back')
+        switch ($option)
+        {
+            "Run" { Run $hstwb.Paths.RunFile $hstwb.Paths.SettingsDir }
+            "Settings" { Settings $hstwb.Paths.SettingsFile }
+            "Assigns" { Assigns $hstwb.Paths.AssignsFile }
+        }
+    } while ($option -ne $null -and $option -ne 'Back')    
+}
+
+function ExtraMenu($hstwb)
+{
+    do
+    {
+        $option = GuiMenu "Extra" @('Support Files', 'Back')
+    } while ($option -ne $null -and $option -ne 'Back')    
+}
+
+function HelpMenu($hstwb)
+{
+    do
+    {
+        $option = GuiMenu "Help" @('Readme', 'Website', 'Source Code', 'Report Issue', 'Back')
+    } while ($option -ne $null -and $option -ne 'Back')    
+}
+
+if (!$settingsDir)
+{
+    $settingsDir = Join-Path $env:LOCALAPPDATA -ChildPath 'HstWB Installer'
+}
+
+$runFile = $ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath('run.ps1')
+$setupFile = $ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath('setup.ps1')
+$settingsFile = Join-Path $settingsDir -ChildPath 'hstwb-installer-settings.ini'
+$assignsFile = Join-Path $settingsDir -ChildPath 'hstwb-installer-assigns.ini'
+
+$runSetupFirstTime = $false
+
+if (!(Test-Path $settingsFile))
+{
+    $runSetupFirstTime = $true
+    MessageDialog "First time use" ("It appears this is the first time you're using HstWB Installer,{1}since settings file '{0}' doesn't exist.{1}{1}HstWB Installer will now start setup to{1}create a default settings file?" -f $settingsFile, [Environment]::NewLine)
+    Setup $setupFile $settingsDir
+}
+
+$hstwb = @{
+    'Paths' = @{
+        'SettingsDir' = $settingsDir;
+        'SetupFile' = $setupFile;
+        'RunFile' = $runFile;
+        'SettingsFile' = $settingsFile;
+        'AssignsFile' = $assignsFile;
+    };
+}
+
+LauncherMenu $hstwb