Změna barev objektů v systému

Jistě víte, že se barvy většiny prvků v systému, jako je třeba titulek oken, barvy posuvníků či editačních polí a podobně, dají celkem bez problému nastavit přes ovládací panely k obrazu svému. Nyní si však ukážeme, jak se toho dá docílit též programově.
procedure TForm1.Button1Click(Sender: TObject);
var CIndex : Integer;
CValue : Longint;
begin
CIndex := COLOR_ACTIVECAPTION;
CValue := clGreen;
SetSysColors(2, CIndex, CValue);
PostMessage(HWND_BROADCAST, WM_SYSCOLORCHANGE, 0, 0);
end;