How to switch windows themes? (W7/x64)

[iXX]

Hi!

Is it possible to switch windows 7/x64 theme (immedially) by au3 script?

Looking for some...

[Danyfirex]

did you mean this?

ShellExecute("control.exe","Desktop")

regards

[JLogan3o13]

Hi, iXX. You used to be able to do it all command-line in XP, but it is a bit more difficult in Win7. If you can put up with the control panel flashing briefly, this works:

expandcollapse popup

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <RecFileListToArray.au3>
#include <WindowsConstants.au3>

$aArray = _RecFileListToArray(@WindowsDir & "ResourcesThemes", "*.theme", 1)

Local $msg
$myGui = GUICreate("Change My Theme", 300, 300)
$listview = GUICtrlCreateListView("listview items", 10, 10, 280, 240)
_GUICtrlListView_SetColumn($listview, 0, "", 230, 0)
$go = GUICtrlCreateButton("Change Theme", 10, 260, 100, 35)
$exit = GUICtrlCreateButton("Exit", 190, 260, 100, 35)
 
For $i = 1 To UBound($aArray) - 1
GUICtrlCreateListViewItem($aArray[$i], $listview)
Next
 
GUISetState(@SW_SHOW)
 
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
Case $msg = $exit
    ExitLoop
Case $msg = $go
    $var = _GUICtrlListView_GetItemTextString($listview, -1)
    _change($var)
    WinClose("Control Panel")
    ExitLoop
EndSelect
WEnd
 
Func _change($var)
ShellExecute("desk.cpl", 'desk,@Themes /Action:OpenTheme /file:"C:windowsResourcesThemes' & $var & '"')
Send("{ENTER}")
Sleep(1000)
EndFunc

Edited October 10, 2012 by JLogan3o13

[iXX]

Maybe I found a simplest way:

Let say I want to change current theme, located in "C:\Users\USER\AppData\Local\Microsoft\Windows\Themes\A.theme" to theme "C:\Users\USER\AppData\Local\Microsoft\Windows\Themes\B.theme".

I found if I double click to this "B.theme" file with my filemanager, windows theme changes immedially, control panel dont appears, it just say "Wait please" while changing... I cant found associated program in windows file associations dialog, so I search in the registry and found this:

[HKEY_CLASSES_ROOT\themefile\shell\open\command]

@=%SystemRoot%\system32\rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:"%1"

Teoreticaly, this should be working:

Run("%SystemRoot%\system32\rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:" "C:\Users\USER\AppData\Local\Microsoft\Windows\Themes\B.theme")

But it dont work.

Any ideas?

[iXX]

... Found syntax error, now it is working, but the window "Individual settings" really did appears...

If someone solve flashing of this window, will be great!

RunWait(@ComSpec & " /c " & '%SystemRoot%\system32\rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:"C:\Users\USER\AppData\Local\Microsoft\Windows\Themes\B.theme"', "", @SW_HIDE)
WinWait("Individual settings")
WinClose("Individual settings")

[supraspecies]

iXX, everything works, but I had to change "Individual settings" to "Personalization", which is the window name. So I have to ask - was "Individual settings" changed to "Personalization" in Service Pack 1 or something? Where is that "Individual Settings" window? I'm asking because I want to ensure the best compatibility of my script.

Edited May 11, 2013 by supraspecies

[BrewManNH]

It might be a long time waiting for an answer from iXX, he hasn't been on the forum since last October.