Refresh theme is only needed on Win11

Author: t1m0thyj

stable/ChangeWindowsAppTheme.ps1

@@ -8,8 +8,10 @@ if (Test-Path $registryPath)
     New-ItemProperty -Path $registryPath -Name "AppsUseLightTheme" -Value $dwordValue -PropertyType DWORD -Force | Out-Null
 }
 
-# Call Windows theme refresh
-Add-Type -TypeDefinition @"
+if ([System.Environment]::OSVersion.Version.Build -ge 22000)
+{
+    # Call Windows theme refresh
+    Add-Type -TypeDefinition @"
 using System;
 using System.Runtime.InteropServices;
 
@@ -19,12 +21,8 @@ public class Win32Utils {
 }
 "@ -PassThru
 
-$HWND_BROADCAST = [IntPtr]::Zero -bor 0xFFFF
-$WM_SETTINGCHANGE = 0x1A
-$SPI_SETCLIENTAREAANIMATION = 0x1043
-
-$param = [System.Runtime.InteropServices.Marshal]::StringToHGlobalUni("ImmersiveColorSet")
-
-$null = [Win32Utils]::SendMessageTimeout($HWND_BROADCAST, $WM_SETTINGCHANGE, [IntPtr]::Zero, $param, 2, 5000, [ref]([IntPtr]::Zero))
-
-[System.Runtime.InteropServices.Marshal]::FreeHGlobal($param)
+    $HWND_BROADCAST = [IntPtr]0xFFFF
+    $WM_SETTINGCHANGE = 0x1A
+    $SMTO_ABORTIFHUNG = 0x2
+    [Win32Utils]::SendMessageTimeout($HWND_BROADCAST, $WM_SETTINGCHANGE, [IntPtr]::Zero, "ImmersiveColorSet", $SMTO_ABORTIFHUNG, 5000, [ref]([IntPtr]::Zero))
+}

stable/ChangeWindowsSystemTheme.ps1

@@ -8,8 +8,10 @@ if (Test-Path $registryPath)
     New-ItemProperty -Path $registryPath -Name "SystemUsesLightTheme" -Value $dwordValue -PropertyType DWORD -Force | Out-Null
 }
 
-# Call Windows theme auto-refresh
-Add-Type -TypeDefinition @"
+if ([System.Environment]::OSVersion.Version.Build -ge 22000)
+{
+    # Call Windows theme refresh
+    Add-Type -TypeDefinition @"
 using System;
 using System.Runtime.InteropServices;
 
@@ -19,12 +21,8 @@ public class Win32Utils {
 }
 "@ -PassThru
 
-$HWND_BROADCAST = [IntPtr]::Zero -bor 0xFFFF
-$WM_SETTINGCHANGE = 0x1A
-$SPI_SETCLIENTAREAANIMATION = 0x1043
-
-$param = [System.Runtime.InteropServices.Marshal]::StringToHGlobalUni("ImmersiveColorSet")
-
-$null = [Win32Utils]::SendMessageTimeout($HWND_BROADCAST, $WM_SETTINGCHANGE, [IntPtr]::Zero, $param, 2, 5000, [ref]([IntPtr]::Zero))
-
-[System.Runtime.InteropServices.Marshal]::FreeHGlobal($param)
+    $HWND_BROADCAST = [IntPtr]0xFFFF
+    $WM_SETTINGCHANGE = 0x1A
+    $SMTO_ABORTIFHUNG = 0x2
+    [Win32Utils]::SendMessageTimeout($HWND_BROADCAST, $WM_SETTINGCHANGE, [IntPtr]::Zero, "ImmersiveColorSet", $SMTO_ABORTIFHUNG, 5000, [ref]([IntPtr]::Zero))
+}