In Klassisches Design wechseln.

[Ultimator]

Um auch was produktives beizutragen hab ich mir mal die uxtheme.dll mit Luckies DLLExports angesehen.
Dort gabs ne nette Funktion namens "EnableTheming". Die hab ich flott in mein Delphi gepackt (Unit uxtheme nicht vergessen), Parameter false probiert, das ganze ins OnClick von nem Button, Programm gestartet, Button geklickt und die Themes waren weg *g*
ALLERDINGS scheints andersrum nicht mehr zu klappen

//edit: Grund gefunden im PSDK:

Zitat:

fEnable
[in] BOOL that can receive one of the following values.
TRUE
Enables visual styles. If the user previously had an active visual style, it becomes active again.

Note As of Microsoft Windows XP Service Pack 2 (SP2), only clients with trusted computing base (TCB) privileges, where the client acts as part of the operating system, can load or change a global theme.
FALSE
Disables visual styles and turns visual styles off.