Windows 7 Theme wechseln

[Keks]

Ich würde gerne aus meinem Delphi-Programm das aktuell verwendete Windows Design Theme ändern können.
Also beispielsweise auf C:\Windows\Resources\Themes\architecture.theme umschalten.
Unter XP gab's ja noch spezielle ThemeManager-Schnittstellen dafür, unter Win7/Vista finde ich jedoch leider nichts dazu.

Die einfachste Methode ist wohl, die Theme-Datei direkt auszuführen:
ShellExecute(0, 'open', PChar('C:\Windows\Resources\Themes\architecture.theme'), nil, nil, SW_SHOWNORMAL); .

Dann wird das Design auch tatsächlich sofort übernommen. Allerdings öffnet sich dabei leider auch die Theme-Verwaltung von Windows, die noch manuell geschlossen werden muss.

Gibt es eine bessere Möglichkeit, um Themes unter Windows 7 direkt aktivieren zu können?
Oder lässt sich das Öffnen der Themes-Verwaltung unterbinden?
Oder notfalls irgendwie gezielt, schnell automatisch schließen?