XP-Skin an/aus abfrage

[Donald]

Hi,
suche verzweifelt eine Abfrage, mit der ich herausbekomme
ob das Programm "normal" oder mit "XP-Skin" Unterstützung
gestartet wurde.

Kann mir dabei jemand weiter helfen ?

[ts-soft]

Ungetestet, wäre nett, wenn Du die Ergebnisse mitteilen würdest:

Code: Alles auswählen

Procedure IsAppThemed()
  Protected DLL.l, Result.l
  If OSVersion() >= #PB_OS_Windows_XP
    DLL = OpenLibrary(#PB_Any, "uxtheme.dll")
    If DLL
      Result = CallFunction(DLL, "IsAppThemed")
      CloseLibrary(DLL)
      ProcedureReturn Result  
    EndIf
    ProcedureReturn #False
  EndIf
  ProcedureReturn #False
EndProcedure

Procedure IsThemeActive()
  Protected DLL.l, Result.l
  If OSVersion() >= #PB_OS_Windows_XP
    DLL = OpenLibrary(#PB_Any, "uxtheme.dll")
    If DLL
      Result = CallFunction(DLL, "IsThemeActive")
      CloseLibrary(DLL)
      ProcedureReturn Result  
    EndIf
    ProcedureReturn #False
  EndIf
  ProcedureReturn #False
EndProcedure

Nachtrag: Die Ergebnisse kommen mir komisch vor
http://msdn.microsoft.com/library/defau ... themed.asp
http://msdn.microsoft.com/library/defau ... active.asp

[Hroudtwolf]

Und ausschalten kannst du das Theme global hiermit.

Code: Alles auswählen

; XP-Skin push off
; 2005 Hroudtwolf
; PureBasic-Lounge.de

If OpenLibrary (1,"uxtheme.dll")
CallFunction(1, "EnableTheming",#False); Mit #True statt #False kannst du es wieder aktivieren
CloseLibrary (1)
EndIf 

[ts-soft]

Und wer zählt jetzt die restlichen 45 nicht gefragten Funktionen der DLL auf
Nicht bös gemeint.

[Donald]

leider nicht das was ich suche.

@TS
egal ob ich das PB-Programm mit oder ohne XP-Skin starte
ergebnis immer 1

@Hroudtwolf
Die Routine ändert die Windows Einstellung.

Ich suche nur eine Abfrage ob für ein PB-Programm die
XP-Skin Unterstützung an/aus ist.

[ts-soft]

@TS
egal ob ich das PB-Programm mit oder ohne XP-Skin starte
ergebnis immer 1

Ist mir auch aufgefallen, aber sollte eigentlich so funzen
Du kannt ja nach einer programmname.manifest bzw. nach einer Resource vom Typ 24 suchen.

Ich selber disable immer den XP-Style für einzelne Gadgets, wenns nicht passt, bzw. problems macht.

[Hroudtwolf]

@Hroudtwolf
Die Routine ändert die Windows Einstellung.

Ich suche nur eine Abfrage ob für ein PB-Programm die
XP-Skin Unterstützung an/aus ist.

Habe nichts anderes behauptet.

[ts-soft]

Eigentlich logisch, die Funktion ermittelt nur ob XP-Theme beim User Aktiv ist, ob die Manifest-Datei vorhanden ist, weiß der Programmierer ja normallerweise.
Also XP-Theme Aktiv + ich habe Manifest integriert = ja
ansonsten nein

[Thatsanee]

Du kannt ja nach einer programmname.manifest bzw. nach einer Resource vom Typ 24 suchen.

Ich selber disable immer den XP-Style für einzelne Gadgets, wenns nicht passt, bzw. problems macht.

Hallo TS,
das würde mich auch interessieren:
Wie fragt man denn ab ob Typ 24 vorhanden ist ?
Und wie disablest du XP-Style für einzele Gadgets ?

Thatsanee

[ts-soft]

@Thatsannee
DisableXPTheme findes Du hier: http://forums.purebasic.com/german/view ... e&start=10
sowie im engl. Forum

Das andere wirste Dir wohl selber überlegen müssen, hab da nichts fertiges