Die Fehlermeldung kommt nicht bei TrySetStyle sondern beim Beenden des programms. Eher selten. Vielleicht 1x bei 100x Programm-Schließen.
Kannst ja schnell testen.
Bau ne Test-App und ändere die Styles pro Sekunde.
Kracht es oder nicht.
Oder starte die Anwendung mit neuem Style neu.
Delphi-Quellcode:
if Restart then
Result := ShellExecute(0, 'open', PWideChar(ParamStr(0)), nil, nil, SW_SHOW)