Определение цвета заголовка окна Windows 10 [WinAPI]

[Данил Абдрафиков]

В Color Constants есть константа clActiveCaption, которая возвращает цвет активного окна, но в Windows 10 возвращается совсем не тот цвет, который на данный момент.

Пробовал так:

GetSysColor(COLOR_ACTIVECAPTION)

Или:

clActiveCaption

В общем-то есть предположение, что это давно уже не работает и несовместимо с Windows 8/10. Есть костыли по вытаскиванию цвета активного окна?

Изменено 7 января, 2018 пользователем Данил Абдрафиков

[OnePeople]

var
Reg:TRegistry;
begin
    Reg:=TRegistry.Create;
    reg.RootKey:=HKEY_CURRENT_USER;
    reg.openKey('SOFTWARE\Microsoft\Windows\DWM',true);
    value:=reg.ReadInteger('ColorizationColor');
    Reg.CloseKey;
    Reg.Free;
    TAlphaColorRec(Value).R:=Round(TAlphaColorRec(Value).R /100 *35);
    TAlphaColorRec(Value).G:=Round(TAlphaColorRec(Value).G /100 *35);
    TAlphaColorRec(Value).B:=Round(TAlphaColorRec(Value).B /100 *35);
Color:=Value;

Я делаю так!

Изменено 7 января, 2018 пользователем OnePeople