XP: Klassisches Design

[Mat]

Hi,


unter XP kann man ja einstellen, dass man das Aussehen so haben will, wie bei allen Vorgaenger-Versionen.

(Systemsteuerung->Anzeige->Designs->Windows -klassisch)

Kann ich in Delphi rauskriegen, ob diese Anzeige auf dem Rechner gerade aktiviert ist?



Danke

Mat

[MathiasSimmack]

In der "uxtheme.dll" gibt es eine Funktion:

Delphi-Quellcode:

type
  TIsThemeActive = function: bool; stdcall;
var
  IsThemeActive  : TIsThemeActive;

die man importieren kann. Ich empfehle dabei den dynamischen Weg, damit das Programm unter 9x/ME/NT/2000 nicht mit einer Fehlermeldung beendet wird. Es sei denn natürlich, das Programm soll nur unter XP laufen.

Da die Funktion true bzw. false zurückliefert, sollte es keine Fragen mehr geben. :)

[Stanlay Hanks]

Is ja irgendwo logisch, dass es nur unter XP laufen soll. Für was soll er denn sonst wissen wollen, welches Design aktiviert is? :wink:
Aber mit dem Dynamischen Laden stimme ich dir zu. wer weiß, was passiert...

[Mat]

danke, das probier ich mal aus..


uebrigens, das programm soll nicht nur unter XP laufen.. :)




Mat

[Mat]

supi, hat funktioniert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  TIsThemeActive = function: bool; stdcall;
var
  Handle  :THandle;
  IsThemeActive  : TIsThemeActive;
  result :string;

begin

  result := 'kein XP';

  Handle := LoadLibrary('uxtheme.dll');
  if Handle <> 0 then
    begin
      IsThemeActive := GetProcAddress(Handle, 'IsThemeActive');

      if IsThemeActive then
        result := 'neuer Stil'
      else
        result := 'alter Stil';

      FreeLibrary(Handle);
    end;



  ShowMessage(result);

end;

fuehrt auch auf allen anderen Systemen nicht zu nem Fehler

danke
Mat