Also, mal das Wesentliche:
Delphi-Quellcode:
function DSiAeroIsEnabled: boolean;
var
isEnabled: BOOL;
begin
Result := (DSiDwmIsCompositionEnabled(isEnabled) = S_OK);
if Result then
Result := isEnabled;
end; { DSiAeroIsEnabled }
Mit
DwmIsCompositionEnabled wird U. A. geprüft ob die Transparenz
aktiv ist was für Aero notwendig ist. Im Fall das die Transparenz inaktiv
ist Kann es sich um den Style Aero mit deaktivierter Transparenz oder
Basicstyle handeln.
Hilft also leider nicht weiter.