das ist schon lange her. Aber normal habe ich alles hier vom Board
soho
- - - - -automatisch zusammengefasst - - - - -
so sieht die mscr Datei aus
####################################################
# Scheinwerfer an aus by TeamSkin #
####################################################
Sound = "\Storage Card\Changer\sounds"
# If (DirExists("\Storage Card\Changer\Scheinwerfer\"))
# Pfad = "\Storage Card\Changer\Scheinwerfer"
# else
If (DirExists("\My Flash Disk\navigation\Skin480X272\Elemente\Scheinwerfer\"))
Pfad = "\My Flash Disk\navigation\Skin480X272\Elemente\Scheinwerfer"
else
Pfad = "\Storage Card\Changer\Scheinwerfer"
EndIf
Include( "IniReadWrite.mscr" )
# Pfad\Name der ini-Datei
iniDatei = "NR-Skin.ini"
# Vorbelegungen einlesen
Call("iniFile", "Read","Scheinwerfer")
block = "zustand"
vorbelegung = section[block]
#######################################
SetChoiceEntryFormat ( 25 , 16 , Arial )
liste[1] = "ohne Scheinwerfer"
ForEach path in directories ( Pfad & "\*.*" )
dir = Part(path, "\", -1)
If (toLower(dir) ne "ohne scheinwerfer")
liste[MaxIndex(liste) + 1] = Part(dir, "\", -1)
EndIf
EndForEach
auswahl = Choice ("Scheinwerfer ","Hier besteht die Möglichkeit, den Scheinwerfer an oder aus zu schalten .^NL^Achtung: Die Änderungen werden erst nach einem Neustart sichtbar !", vorbelegung, 0, liste)
If (auswahl)
XCopy ( Pfad & "\" \ liste[auswahl] \ "*.*", "\My Flash Disk\navigation\Skin480x272\PPSkin\480x272\GoPal_5.0\Teamskin",1)
Playsound(%Sound%&"\INFBEG.WAV")
section[block] = auswahl
If WndExists ("GoPal Navigator")
If( Question( " Soll die Navigation neu gestartet werden ?", "NO = zurück ins Display !", "YesNo" )=1 )
Call("iniFile", "Write", "Scheinwerfer")
Kill ("mnavdce.exe")
Run ("\My Flash Disk\navigation\mnavdce.exe")
EndIf
EndIf
EndIf
# Gewählte Optionen zurückschreiben
Call("iniFile", "Write", "Scheinwerfer")