PureTheme - Windows-Themes rotieren lassen.

[ts-soft]

Im moment habe ich keine größeren pläne dafür, da das feedback bislang zu schwach war.
Bin aber trotzdem für vorschläge offen.

Einige sind doch schon auf Windows 7 umgestiegen, die können mit der bisherigen Version ja
nicht so viel anfangen

Gruß
Thomas

[al90]

Einige sind doch schon auf Windows 7 umgestiegen, die können mit der bisherigen Version ja
nicht so viel anfangen

Habs mal auf ToDo gesetzt. Die Packs lassen sich offensichtlich auch mit PureZIP problemlos entpacken.
Somit sollte es wohl auch umsetzbar sein. Werde mich mal daran machen. Testen muss aber jemand anders,
da ich nur Vista habe. Vllt. kannst Du es ja dann auch testen ? (Falls Du Win7 besitzt?)

[ts-soft]

Vllt. kannst Du es ja dann auch testen ? (Falls Du Win7 besitzt?)

Ich kann

Hintergrundbilder sind wohl alle in einem Unterordner "DesktopBackground" und das Format der Theme-Datei mußte Dir vorher nochmal genauer angucken. Ich hab hier nur diese Themes.

Gruß
Thomas

[al90]

Ich kann

Super!

Hintergrundbilder sind wohl alle in einem Unterordner "DesktopBackground" und das Format der Theme-Datei mußte Dir vorher nochmal genauer angucken. Ich hab hier nur diese Themes.

Hmm, In dem Oberen Berecih der Themes scheinen einige einträge mehr zu sein als bei Vista-Themes. Ist im grunde aber auch
egal da ich selbst nicht händig darauf zugreife, sondern es Windows selbst machen lasse. Dazu muss ich aber etwas wissen.
Und zwar ob folgender CMD-Aufruf auch unter "Windows 7" greift.

rundll32.exe %SystemRoot%\System32\shell32.dll,Control_RunDLL %SystemRoot%\System32\desk.cpl desk,@Themes /Action:OpenTheme /file:"c:\Themes\MyTheme.Theme"

Am Ende der Zeile einfach den FullPathNamen des Themes zwichen den Anführungszeichen eingeben und dann ausführen.
Wenn dann der Windows eigene Dialog mit dem Voreingestellten Theme erscheint, sollte es auch unter Win7 gehen.

[ts-soft]

Der Dialog kommt, eingestellt hat er nichts.

[al90]

Der Dialog kommt, eingestellt hat er nichts.

Ist das Theme also nicht im Dialog vorgegeben ? Zum übernehmen selbst ist nämlich ein SendMessage nötig.
Es würde also schon reichen wenn das Hintergrundbild im Dialog sichtbar wäre. Also alles im allen so, das man
nur noch "OK" anklicken muss um das Theme zu übernehmen. Wenn das nicht klappen sollte, dann hat Win7
offensichtlich einen anderen Aufruf dafür.

[ts-soft]

> Ist das Theme also nicht im Dialog vorgegeben ?
Weiß ich nicht, weiß ja nicht wie es aussieht
Wenn ich das pack doppelklicke ist es installiert und eingestellt.

//edit
Ich nehme mal an, das er die Dateien beim entpacken wohin kopiert, mein händisch entpacktes
Theme im tempordner wird also so nicht funktionieren, da das Bild ja nicht an Ort und Stelle ist,
sondern nur im tempordner.

[al90]

Ich nehme mal an, das er die Dateien beim entpacken wohin kopiert, mein händisch entpacktes
Theme im tempordner wird also so nicht funktionieren, da das Bild ja nicht an Ort und Stelle ist,
sondern nur im tempordner.

Bestätigt. Erscheint bei mir auch nur ein Schwarzer Hintergrund. Eine Fehlermeldung kommt aber nicht.
Obwohl Wallpaper=DesktopBackground\neutral-wp1.jpg im Theme drinn steht, scheint
Windows einen bestimmten Ordner zu benötigen.

[ts-soft]

Den Pfad zum Themeordner kannste so ermitteln:

Code: Alles auswählen

Procedure.s GetSpecialFolder(CSIDL)
  Protected *itemid.ITEMIDLIST
  Protected location.s = Space(#MAX_PATH)

  If SHGetSpecialFolderLocation_ (0, CSIDL, @*itemid) = #NOERROR
    If SHGetPathFromIDList_(*itemid, @location)
      If Right(location, 1) <> "\" : location + "\" : EndIf
      ProcedureReturn location
    EndIf
  EndIf
EndProcedure

Debug GetSpecialFolder(#CSIDL_LOCAL_APPDATA) + "\Microsoft\Windows\Themes\"

Dort wird ein Ordner mit dem Theme-Namen erstellt, indem sich die themedatei, sowie die Ordner
befinden.

Mußt also nur an den richtigen Ort entpacken

[al90]

Mußt also nur an den richtigen Ort entpacken

Na dann, wenns so bei dir klappt, kann ich mich ja an die Arbeit machen.

Unter Vista gibts keinen Theme Ordner dort. Sonst hätte ich es auch mal testen können.
Und C:\Windows\Resources\Themes\ geht auch nicht. Gerade mal auprobiert.

Edit

Du sagtest doch das die packs nur gestartet werden müssen um sie zu aktivieren (?)
vllt. ist es ja auch möglich sie mit RunProgram odes Execute zu starten ?
Ich weis ja jetzt nicht wie Windows 7 das ganze dan behandelt.