Add window minimization functionality for better screenshots

Author: DecimalTurn

.github/workflows/screenshot_demo.yml

@@ -10,6 +10,9 @@ jobs:
         uses: actions/checkout@v4
       - name: "Take Screenshot"
         run: |
+          # Minimize the CMD window
+          . "./scripts/utils/Minimize.ps1"
+          Minimize-Window "Administrator: C:\actions"
           # Take a screenshot of the Office application
           . "./scripts/utils/Screenshot.ps1"
           Take-Screenshot -OutputPath "Screenshot.png"

Main.ps1

@@ -48,7 +48,6 @@ foreach ($folder in $folders) {
     }
 }
 
-
 # We need to open and close the Office applications before we can enable VBOM
 Write-Host "Open and close Office applications"
 . "$PSScriptRoot/scripts/Open-Close-Office.ps1" $officeApps
@@ -61,6 +60,13 @@ foreach ($app in $officeApps) {
     Write-Host "========================="
 }
 
+# To get better screenshots we need to minimize the "Administrator" CMD window
+$scriptPath = Split-Path -Parent $MyInvocation.MyCommand.Path
+. "$scriptPath/utils/Minimize.ps1"
+
+Minimize-Window "Administrator: C:\actions"
+
+
 foreach ($folder in $folders) {
     $app = Get-OfficeApp -FileExtension $folder.Substring($folder.LastIndexOf('.') + 1)
 

scripts/utils/Minimize.ps1

@@ -0,0 +1,64 @@
+# This function should minimize the window using the Win32 API
+# It receives a string with the first part of the window title
+# and minimizes the window if it finds a match among the open windows
+function Minimize-Window {
+    param (
+        [string]$windowTitlePart
+    )
+
+    Write-Host "Starting window minimization process..." -ForegroundColor Cyan
+    Write-Host "Looking for windows with title containing: '$windowTitlePart'" -ForegroundColor Cyan
+
+    # Get the handle of the current process
+    $currentProcess = Get-Process -Id $PID
+    $currentProcessHandle = $currentProcess.MainWindowHandle
+
+    # Get all open windows
+    $windows = Get-Process | Where-Object { $_.MainWindowHandle -ne 0 }
+    
+    Write-Host "Found $($windows.Count) windows with valid handles" -ForegroundColor Gray
+    
+    $matchFound = $false
+    
+    foreach ($window in $windows) {
+        Write-Verbose "Checking window: $($window.MainWindowTitle) (Handle: $($window.MainWindowHandle))"
+        
+        if ($window.MainWindowTitle -like "*$windowTitlePart*") {
+            Write-Host "Match found! Window title: $($window.MainWindowTitle)" -ForegroundColor Green
+            
+            # Minimize the window
+            try {
+                [void][System.Runtime.InteropServices.Marshal]::GetDelegateForFunctionPointer(
+                    [System.Runtime.InteropServices.Marshal]::GetProcAddress(
+                        [System.Runtime.InteropServices.Marshal]::GetHINSTANCE([System.Reflection.Assembly]::GetExecutingAssembly().GetModules()[0]),
+                        "ShowWindow"
+                    ),
+                    [System.IntPtr]
+                )($window.MainWindowHandle, 2) # 2 = SW_MINIMIZE
+                Write-Host "Successfully minimized window: $($window.MainWindowTitle)" -ForegroundColor Green
+                $matchFound = $true
+            }
+            catch {
+                Write-Host "Error minimizing window: $($_.Exception.Message)" -ForegroundColor Red
+            }
+        }
+    }
+    
+    # If no match was found, return a list of all window handles
+    if (-not $matchFound) {
+        Write-Host "No windows found matching the pattern: '$windowTitlePart'" -ForegroundColor Yellow
+        Write-Host "Here's a list of all available windows:" -ForegroundColor Yellow
+        
+        $windowList = $windows | ForEach-Object {
+            [PSCustomObject]@{
+                Title = $_.MainWindowTitle
+                Handle = $_.MainWindowHandle
+                ProcessName = $_.ProcessName
+                Id = $_.Id
+            }
+        }
+        
+        $windowList | Format-Table -AutoSize
+        return $windowList
+    }
+}