[Windows Mobile Themes] lioryte:
CTheme Changer Source Code

Since I'm now running android, HERE is the CTheme Changer OEM Folder for whomever wants to work on this. (WQVGA!!!)

Required for this to run this plugin: mortscript

Reg settings:

[HKEY_LOCAL_MACHINE\Software\Microsoft\CHome]
"Enabled"=dword:00000001
"CPRFile"="Enkidu"
"ExtensibilityXML"="<Plugins Order=\"CThemes;CMyPhotos;CMusic;CWelcomeCenter;CPhone;CVoicemail;CClock;CText;CEmail;CAppointments;CHomeFavs;CWindowsLive\" CPRFileName=\"Enkidu\" DisplayStyle=\"Titanium\" />"
"Plugins"="CThemes;CMyPhotos;CMusic;CWelcomeCenter;CPhone;CVoicemail;CClock;CText;CEmail;CAppointments;CHomeFavs;CWindowsLive"
"DefaultXML"="<Plugins Order=\"CMyPhotos;CMusic;CWelcomeCenter;CPhone;CVoicemail;CClock;CText;CEmail;CAppointments;CHomeFavs;CWindowsLive\" CPRFileName=\"Titanium\" DisplayStyle=\"Titanium\" />"
"EmailOverride"=dword:00000000
"SMSMMSOverride"=dword:00000000
"DisplayStyle"="Titanium"
"SK1TEXT"="Contacts"
"SK1URL"=":MSCONTACTS"
"HomePluginGuid"="{892B90CB-9806-427e-8BED-F45C6A9E576B}"
"DockOperatorBar"=dword:0000000

THE BELOW CODE IS NOT A PART OF CURRENT CTHEME CHANGER, BUT AN IDEA TO MAKE IT SMALLER/BETTER

A modified script by claus1953 (Thanx!) to use the storage card (Need further development, just an mortscript mind scramble at this point)

This is the start of porting all graphics to SC

installpath=SystemPath("ScriptPath")
current_theme = Regread( "HKLM", "Software\Microsoft\CHome", "CPRFile")
CurrCPRport = "current_theme" & "_" & "240x400"
CurrCPRland = "current_theme" & "_" & "400x240"

SetFileAttribs("\Windows\bronzeres.dll", FALSE, FALSE)
Run (installpath \ "disableTitanium.mscr")

Neo_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Titanium\" DisplayStyle=\"Titanium\" />'
ShadowNeo_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"ShadowNeo\" DisplayStyle=\"Titanium\" />'
WM7_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"WM7\" DisplayStyle=\"Titanium\" />'
Default_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Titanium\" DisplayStyle=\"Titanium\" />'
Lizzy_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Lizzy\" DisplayStyle=\"Titanium\" />'
Buffed_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Buffed\" DisplayStyle=\"Titanium\" />'
Bliss_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Bliss\" DisplayStyle=\"Titanium\" />'
Josito_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Josito\" DisplayStyle=\"Titanium\" />'
Hero_Titanium = '<Plugins Order=\"JMLToday;JMLLauncher;CMyPhotos;CMusic;CWindowsLive\" CPRFileName=\"Hero\" DisplayStyle=\"Titanium\" />'
TitaniumLTD_Titanium = '<Plugins Order=\"CHero;ATContacts;CLauncher\" CPRFileName=\"TitaniumLTD\" DisplayStyle=\"Titanium\" />'

Neo_TitaniumSwitch=("DragonWorld Neo Titanium")
ShadowNeo_TitaniumSwitch=("Greatbal ShadowNeo Titanium")
WM7_TitaniumSwitch=("Ibrythill WM7 Titanium")
Default_TitaniumSwitch=("Titanium")
Lizzy_TitaniumSwitch=("Ebsbow Lizzy Titanium")
Buffed_TitaniumSwitch=("Ebsbow Buffed Titanium")
Bliss_TitaniumSwitch=("Rpereira Bliss Titanium")
Josito_TitaniumSwitch=("Josito Chanante Titanium")
Hero_TitaniumSwitch=("Titanium_Hero_by_Chriscsh")
TitaniumLTD_TitaniumSwitch=("TitaniumLTD_by_Idawg214")
Cancel=("Cancel")
SaveCurrent=("Backup current theme")

# Set switches according to current settings
SettingOptions[1]=Neo_TitaniumSwitch
SettingOptions[2]=ShadowNeo_TitaniumSwitch
SettingOptions[3]=WM7_TitaniumSwitch
SettingOptions[4]=Default_TitaniumSwitch
SettingOptions[5]=Lizzy_TitaniumSwitch
SettingOptions[6]=Buffed_TitaniumSwitch
SettingOptions[7]=Bliss_TitaniumSwitch
SettingOptions[8]=Josito_TitaniumSwitch
SettingOptions[9]=Hero_TitaniumSwitch
SettingOptions[10]=TitaniumLTD_TitaniumSwitch
SettingOptions[11]=SaveCurrent
SettingOptions[12]=Cancel

SetChoiceEntryFormat(28,14)
Choice("Titanium Theme Changer","Choose CPR for CHome",SettingOptions)

Case(1)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Neo_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Neo)
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Neo_240x400.cpr", "\Windows\Neo_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Neo_400x240.cpr", "\Windows\Neo_400x240.cpr", TRUE )

Case(2)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", ShadowNeo_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", ShadowNeo)
Copy(installpath \ "TitaniumShadowNeo" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "ShadowNeo_240x400.cpr", "\Windows\ShadowNeo_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "ShadowNeo_400x240.cpr", "\Windows\ShadowNeo_400x240.cpr", TRUE )

Case(3)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", WM7_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", WM7)
Copy(installpath \ "WM7" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "WM7_240x400.cpr", "\Windows\WM7_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "WM7_400x240.cpr", "\Windows\WM7_400x240.cpr", TRUE )

Case(4)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Default_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Titanium)
Copy(installpath \ "DefaultTheme" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Titanium_240x400.cpr", "\Windows\Titanium_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Titanium_400x240.cpr", "\Windows\Titanium_400x240.cpr", TRUE )

Case(5)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Lizzy_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Lizzy)
Copy(installpath \ "Lizzy" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Lizzy_240x400.cpr", "\Windows\Lizzy_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Lizzy_400x240.cpr", "\Windows\Lizzy_400x240.cpr", TRUE )

Case(6)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Buffed_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Buffed)
Copy(installpath \ "TitaniumBuffed" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Buffed_240x400.cpr", "\Windows\Buffed_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Buffed_400x240.cpr", "\Windows\Buffed_400x240.cpr", TRUE )

Case(7)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Bliss_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Bliss)
Copy(installpath \ "Bliss" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Bliss_240x400.cpr", "\Windows\Bliss_240x400.cpr", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Bliss_400x240.cpr", "\Windows\Bliss_400x240.cpr", TRUE )

Case(8)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Josito_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Josito)
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Josito_240x400.cpr", "\Windows\Josito_240x400.cpr", TRUE )

Case(9)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", Hero_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", Hero)
Copy(installpath \ "Hero" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "Hero_240x400.cpr", "\Windows\Hero_240x400.cpr", TRUE )

Case(10)
RegWriteString("HKLM","Software\Microsoft\CHome","ExtensibilityXML", TitaniumLTD_Titanium)
RegWriteString( "HKLM", "Software\Microsoft\CHome", "CPRFile", TitaniumLTD)
Copy(installpath \ "TitaniumLTD" \ "bronzeres.dll", "\Windows\bronzeres.dll", TRUE )
Copy(installpath \ "allcprs\WQVGA_cprs" \ "TitaniumLTD_240x400.cpr", "\Windows\TitaniumLTD_240x400.cpr", TRUE )

Case(11)
Run (installpath \ "save_current.mscr")
sleepMessage(3,"backup complete")

Case(12)
Run (installpath \ "exit.mscr")

EndChoice

Run ("Archivos de programa \ JMLPanex \ ClearCacheAll.mscr")

RunWait ("Archivos de programa \ JMLPanex \ JMLOffset.mscr")

sleepMessage(2,"complete")

Run (installpath \ "activateTitanium.mscr")
RedrawToday

Delete("\Windows"\CurrCPRport)
Delete("\Windows"\CurrCPRland)

All of the .cpr's can be changed to any resolution with using the attached .cpr res. changer (attached). I hope someone will keep this alive...