System(!)design ändern

[Delphi-Narr]

Hallo, gibt es eine Möglichkeit das Systemdesign zu ändern?
Also z.B. das Design von Windows klassisch auf Windows XP normal zu ändern oder andersherum?

Liebe Grüße!

[mkinzler]

Was meinst du mit normal? Global oder nur in deinem Programm?
Die Änderung sollte man aber dem Anwender überlassen.

[Delphi-Narr]

Ich meine das Design "Windows XP (normal)". Also das mit der grünen Startschaltfläche und das graue wie bei Windows 98, 2000: "Windows - klassisch". Zwischen diesen beiden soll der Anwender wählen können. Also praktisch ein Programm, welches den Rechtsklick auf Desktop->Eigenschaften->Design ersetzt.

Das man das dem Anwender überlassen sollte:
Ich möchte das Design nur für die Dauer behalten, die das Programm läuft. Onclose Soll wieder das alte eingestellt werden...

LG

[JamesTKirk]

Zitat:

Zitat von Delphi-Narr

Das man das dem Anwender überlassen sollte:
Ich möchte das Design nur für die Dauer behalten, die das Programm läuft. Onclose Soll wieder das alte eingestellt werden...

Warum möchtest du denn für die Dauer deines Programms das Classic-Theme haben? Vielleicht gibt es ja eine andere (korrektere) Lösung für dein Problem.

Gruß,
Sven

[jaenicke]

Und woher weißt du denn, dass der Benutzer das will? Was passiert, wenn das Programm abstürzt, wer stellt dann das Design wieder her?

Wenn der Benutzer das will, dann kann er das auch selbst einstellen. Warum muss das Programm das machen?

Wie wäre es denn mit Skins? Also z.B. XStyleForm.

[Delphi-Narr]

Das Tool ist eigentlich eher für mich, da ich während der Nutzung gerne das alte Design nutzen möchte. Hinterher jedoch wieder das schicke...
Es ist halt eher ein Programm, das mir den Klick erspart. Wenn ein Crash passieren sollte, dann muss ich wohl manuell ran :)
Außerdem interessiert es mich generell, ob man das ändern kann...

[JamesTKirk]

Zitat:

Zitat von Delphi-Narr

Das Tool ist eigentlich eher für mich, da ich während der Nutzung gerne das alte Design nutzen möchte. Hinterher jedoch wieder das schicke...
Es ist halt eher ein Programm, das mir den Klick erspart. Wenn ein Crash passieren sollte, dann muss ich wohl manuell ran :)
Außerdem interessiert es mich generell, ob man das ändern kann...

Also wenn das so ist... es scheint über eine undokumentierte Funktion möglich zu sein. Näheres kannst du hier nachlesen (bitte ganz lesen, da unten auch noch wichtige Informationen stehen). Falls dir das nicht weiterhilfst kannst du zumindest an Hand des Funktionsnamens Google bemühen.
Weiter kann ich dir allerdings nicht helfen, da ich vorwiegend Linux verwende. :)

Gruß,
Sven

[jaenicke]

Mit der hatte ich als ich die Frage gelesen hatte schon kurz experimentiert, aber da ich XP nur noch virtuell und auf dem Laptop nutze hatte ich da nicht viel versucht. Diese Übersetzung scheint nicht korrekt zu sein:

Delphi-Quellcode:

function SetSystemVisualStyle(pszFilename, pszColor, pszSize: PChar;
  dwReserved: Integer): Integer; stdcall; external 'uxtheme.dll';

[Delphi-Narr]

Danke für die Funktion! Wie könnte ich die denn jetzt aufrufen?
Könnte mir jemand mal einen Beispielaufruf nennen?!

[jaenicke]

Steht doch in dem Link aufgrunddessen ich den Versuch der Delphiübersetzung gepostet hatte:

Delphi-Quellcode:

SetSystemVisualStyle('C:\Windows\resources\Themes\Aero\aero.msstyles', 'NormalColor', 'NormalSize', 0);

Nur funktioniert es wie gesagt leider nicht.