Цвет заголовка Проводника

param (
    # Цвет (в формате RGBA) фона заголовка окна для win32 программ
    [ValidateCount(4,4)]
    [byte[]] $TitleBackground,
 
    # Цвет (в формате RGBA) фона заголовка неактивного окна для win32 программ
    [ValidateCount(4,4)]
    [byte[]] $TitleInactiveBackground
)
 
if (($null -eq $TitleBackground) -and ($null -eq $TitleInactiveBackground)) { return }
 
function RGBAToUint {
    param ([ValidateCount(4,4)] [byte[]] $RGBA)
 
    $r = [uint32] $RGBA[0]
    $g = [uint32] $RGBA[1]
    $b = [uint32] $RGBA[2]
    $a = [uint32] $RGBA[3]
 
    $r -bor ($g -shl 8) -bor ($b -shl 16) -bor ($a -shl 24)
}
 
$Path  = 'hkcu:/SOFTWARE/Microsoft/Windows/DWM'
$Name  = 'ColorPrevalence'
$Value = 1
 
    Set-ItemProperty -Path $Path -Name $Name -Value $value
 
if ($TitleBackground) {
    $Path  = 'hkcu:/SOFTWARE/Microsoft/Windows/DWM'
    $Name  = 'AccentColor'
    $Value = RGBAToUint -RGBA $TitleBackground
 
    Set-ItemProperty -Path $Path -Name $Name -Value $value
}
 
if ($TitleInactiveBackground) {
    $Path  = 'hkcu:/SOFTWARE/Microsoft/Windows/DWM'
    $Name  = 'AccentColorInactive'
    $Value = RGBAToUint -RGBA $TitleInactiveBackground
 
    Set-ItemProperty -Path $Path -Name $Name -Value $value
}