[Darkness231]

Originally Posted by rmcsilva

Hi, and thank you for your quick reply. I'm running the latest official Rom from HTC, but the language is set to portuguese. Does this affect the registry and file locations? If so, can your program be "translated"? Thanks again.

Best regards,
Rui

Here is the script. To make it work with other languages, we would need:

What is the path for the today values
For English it is
HKLM\SOFTWARE\Microsoft\Today\Items\TouchFLO 3D\Enabled
HKLM\SOFTWARE\Microsoft\Today\Items\HTC Sense\Enabled

The exact locations of the SPB mobile shell executable
For english it is
\Program Files\Spb Mobile Shell\MobileShell.exe

The location of the program folder in the start menu
For english it is
\Windows\Start Menu\Programs\


If anyone that is familiar mortscript has any suggestions, feel free to comment.

TouchFLO3DEXIST =RegValueExists("HKLM", "SOFTWARE\Microsoft\Today\Items\TouchFLO 3D", "Enabled")
HTCSENSEEXIST = RegValueExists("HKLM", "SOFTWARE\Microsoft\Today\Items\HTC Sense", "Enabled")
ShellStorage = FileExists( "\Storage Card\Program Files\Spb Mobile Shell\MobileShell.exe")
ShellDevice = FileExists( "\Program Files\Spb Mobile Shell\MobileShell.exe")
ShellInternalStorage = FileExists( "\Internal Storage\Program Files\Spb Mobile Shell\MobileShell.exe")    
shellrunning = ProcExists("MobileShell.exe")

If (shellrunning)
    If (ShellStorage)
        run("Storage Card\Program Files\Spb Mobile Shell\MenuLauncher.exe","-stop")
    EndIf
    If (ShellDevice)
        run("\Program Files\Spb Mobile Shell\MenuLauncher.exe","-stop")
    EndIf
    If (ShellInternalStorage)
        run("\Internal storage\Program Files\Spb Mobile Shell\MenuLauncher.exe","-stop")
    EndIf
    If (TouchFLO3DEXIST)
        RegWriteDWord("HKLM", "SOFTWARE\Microsoft\Today\Items\TouchFLO 3D", "Enabled","1")
    Endif
    If (HTCSENSEEXIST)
        RegWriteDWord("HKLM", "SOFTWARE\Microsoft\Today\Items\HTC Sense", "Enabled","1")
    EndIf
    RedrawToday
    Show ( "Desktop" )

Else
    If (TouchFLO3DEXIST)
        RegWriteDWord("HKLM", "SOFTWARE\Microsoft\Today\Items\TouchFLO 3D", "Enabled","0")
    Endif
    If (HTCSENSEEXIST)
        RegWriteDWord("HKLM", "SOFTWARE\Microsoft\Today\Items\HTC Sense", "Enabled","0")
    EndIf
    If (ShellStorage)
        run("Storage Card\Program Files\Spb Mobile Shell\MenuLauncher.exe")
    EndIf
    If (ShellDevice)
        run("\Program Files\Spb Mobile Shell\MenuLauncher.exe")
    EndIf
    If (ShellInternalStorage)
        run("\Internal storage\Program Files\Spb Mobile Shell\MenuLauncher.exe")
    EndIf
    RedrawToday
    Show ( "Desktop" )
Endif