7 lines
346 B
AutoIt
7 lines
346 B
AutoIt
|
|
||
|
|
||
|
$theMWTitleBarColor = Hex(RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM", "AccentColor"))
|
||
|
$theMWTitleBarColor = StringRight($theMWTitleBarColor, 6)
|
||
|
$theMWTitleBarColor = "0x" & StringRight($theMWTitleBarColor, 2) & StringMid($theMWTitleBarColor, 3, 2) & StringLeft($theMWTitleBarColor, 2)
|
||
|
|
||
|
$CurrentAccent = $theMWTitleBarColor
|