Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Change system colors (W8+) (https://www.delphipraxis.net/193528-change-system-colors-w8.html)

WojTec 10. Aug 2017 15:44

Delphi-Version: XE6

Change system colors (W8+)
 
This:

Delphi-Quellcode:
DwmGetColorizationParameters(Params);
Params.nIntensity := 70;
Params.clrColor := SwapRB(AColor);
DwmSetColorizationParameters(@Params, BOOL(0));

can change windows borders and taskbar color on W7 (Aero), but on W10 (W8 not tested) changing only windows borders outline (titlebar and taskbar colors not changed). How to on W8+ change these colors?

Der schöne Günther 10. Aug 2017 17:23

AW: Change system colors (W8+)
 
That "DwmSetColorizationParameters" was an undocumented function which was never intended for public use. Things like this regularly stop to be supported without public notice.

For me, it works changing the "AccentColor" key in HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM and broadcasting a WM_DWMCOLORIZATIONCOLORCHANGED message afterwards

Source: http://www.pinvoke.net/default.aspx/...tionParameters


Nevertheless, I would hate an application for changing my personal settings. I'm sure you know this and have a good reason for messing the the users personalization settings ;-)

WojTec 11. Aug 2017 10:31

Re: Change system colors (W8+)
 
Hmm, it changing titlebars only, taskbar and startmenu stay in current color, in personalize -> color also is old color :(


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz