Пост OnePeople - сообщение в Определение цвета заголовка окна Windows 10 [WinAPI] был отмечен как ответ
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;
Я делаю так!
Пост OnePeople - сообщение в Определение цвета заголовка окна Windows 10 [WinAPI] был отмечен как ответ