Codice:
# Fix Blocco Tomtom + Riconoscimento Mappe + Fix ORA #RegWriteString("HKLM", "\System\Explorer\Shell Folders", "My Documents", "\STORAGE CARD\My Documents")
RegWriteDWord("HKLM", "\System\CurrentControlSet\Control\Power\Timeouts", "ACSuspend", 0)
RegWriteDWord("HKLM", "\System\CurrentControlSet\Control\Power\Timeouts", "ACSystemIdle", 0)
RegWriteDWord("HKLM", "\System\CurrentControlSet\Control\Power\Timeouts", "ACUserIdle", 0)
RegWriteDWord("HKLM", "\System\CurrentControlSet\Control\Power\Timeouts", "BattSuspend", 0)
RegWriteDWord("HKLM", "\System\CurrentControlSet\Control\Power\Timeouts", "BattSystemIdle", 0)
RegWriteDWord("HKLM", "\System\CurrentControlSet\Control\Power\Timeouts", "BattUserIdle", 0)
#RegDelete("HKLM", "\System\CurrentControlSet\Control\Power\State\UserIdle", "Default")
#RegDelete("HKLM", "\System\CurrentControlSet\Control\Power\State\SystemIdle", "Default")
RegWriteString("HKLM", "\Time Zones", "Default", "E. Europe Standard Time")
RegWriteDWord ("HKLM" , "\SOFTWARE\Microsoft\Clock" , "AutoDST",1)
#-------------------------------------------------------------------------------------------
#Taskbar e Start Menu - taskbar Always on top. neccessario per il corretto funzionamento di Tomtom
#RegWriteDWord("HKLM", "\SOFTWARE\Microsoft\Shell\OnTop", "Default", 0)
#Taskbar e Start Menu - nasconde automaticamente task bar
RegWriteDWord("HKLM", "\SOFTWARE\Microsoft\Shell\AutoHide", "Default", 1)
#il sistema non usa più SDMMC per impaginazione di memoria che può causare assenza del sistema
RegWriteDWord("HKLM", "\System\StorageManager\FATFS", "Paging", 0)
#visualizza i file nascosti
RegWriteDWord("HKLM", "\Explorer", "ViewAll", 1)
#visualizza i file protetti di sistema
RegWriteDWord("HKLM", "\Explorer", "ShowSys", 1)
#Attiva suono tap schermo
RegWriteDWord("HKCU", "\ControlPanel\Volume", "Screen", 1)
RegWriteDWord("HKCU", "\ControlPanel\Volume", "Volume", 4294967295)
RegWriteDWord("HKCU", "\ControlPanel\Volume", "Mute", 7)
#Regolazione luminosità
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "UseBattery", 0)
#non spegne il display se attaccato alla presa di corrente UseExt
RegWriteDWord("HKCU","\ControlPanel\BackLight","ACBacklight OnTap",1)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "UseExt", 0)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "IsDim", 0)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "ACBacklightLuminanceLevel", 100)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "ACBrightness", 10)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "Automode", 0)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "BacklightCurrentLevel", 1)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "BacklightLuminanceLevel", 100)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "ACBacklightMaxLuminanceLevel", 100)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "Brightness", 10)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "ExtPowerOn", 1)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "LedAlwaysOn", 0)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "LedTimeout", 5)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "ACTimeout",0)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "BatteryTimeout",0)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "OnOff", 0)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "AutoDim",0)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "BacklightOnTap",1)
RegWriteDWord("HKCU", "\ControlPanel\BackLight", "UseExt",0)
If (FileExists(SystemPath("ScriptPath")\SystemPath("ScriptName")&".ini"))
Start = IniRead (SystemPath("ScriptPath")\SystemPath("ScriptName")&".ini", "Application", "Path")
If (FileExists (Start))
Run (Start)
Exit
Else
Call "SelectFile"
EndIf
Else
Call "SelectFile"
EndIf
Sub SelectFile
Run (SystemPath("ScriptPath")\"softbutton.exe")
Application = SelectFile("Application Path", FALSE, "*.exe", "Seleziona il file .exe che vuoi avviare^NL^Dovrai selezionarlo solo per questa volta...")
If (Application eq "")
SleepMessage (3, "Errore.^NL^^NL^Nessun file è stato selezionato.^NL^^NL^Riavvia per riprovare.")
Exit
EndIf
IniWrite (SystemPath("ScriptPath")\SystemPath("ScriptName")&".ini", "Application", "Path", Application)
SleepMessage (3, "Avvio.^NL^^NL^Grazie, Il file stà per essere avviato...^NL^^NL^Questo avviso non verrà più riproposto a meno di errori nell'avvio del file .exe^NL^^NL^Path: "&Application)
Run (Application)
Exit
EndSub
Segnalibri