How to switch an Application between Themed and not Themed at run-time?

Question

Very much like the \"Project|Options|Application|Enable runtime themes\" CheckBox, but dynamically at run-time instead.
[Delphi XE targetting Win XP or Win 7]

I

Answer 1

Call SetThemeAppProperties.