Autostart-Menü für Z100 (MortScript)

Auf der Basis der diversen Skripte und Tipps, die ich hier gefunden habe, habe ich ein kleines Startskript für mein Z100 geschrieben, dass

• Bein Start des Crocos einige Sekunden lang ein Menü zeigt,
• in dem PmB
• GPS-Tacho (ich hab' kein anderes an meiner SR500)
• und die verfügabren Skins
• auflistet und nach Ablauf der Zeit das zuletzt genutzte Skin startet.
• Beim Druck auf "Cancel" wird das Standard-Becker-Skin gestartet.

Voraussetzung ist die Installation von MortScript, die ich nach dieser http://forum.pocketnavigation.…ostid=2283951#post2283951 Anleitung von samue gemacht habe.

In \NNGStart\RunINI.ini wird dann direkt MortScript mit einer modifizierten MortScriptReg.mcr (Modifiaktion etwas weiter unten) gestartet:

[RUN]
app1= "\My Flash Disk\PmB\SkinWechsel\MortScript\MortScript.exe '\My Flash Disk\PmB\SkinWechsel\MortScript\MortScriptReg.mscr'"

Ich habe PmB auf dem Croco selbst, also nicht einer Flashkarte, im Verzeichnis PmB installiert, wenn Ihr das woanders habt, müsst Ihr die Pfade entsprechend anpassen.

In der MortScript.mscr kommt am Ende, vor dem "exit" folgender Code hinein:

#################################################################
# Autostart der Navigation
#################################################################




sliste[0] = "StandardSkin_nichtVorhandenesSkin"




### Standard-Einträge ###
sliste[1] = "Letztgenutztes Skin (default)"
sliste[2] = "PmB"
sliste[3] = "GPS-Tacho"




### Skins einsammeln ###
ForEach Design in Files ( "\My Flash Disk\Igo8\content\skin\*.*" )
  sliste[MaxIndex(sliste)+1] = FileBase(Design)
EndForEach




### Auswahhldialog für 5 Sekunden zeigen, dann geht's zum Navi mit letztgenutztem Skin (Auswahl 1) ###
SetChoiceEntryFormat( 32, 18, Tahoma )
skinN = Choice( "Designauswahl", "Wie soll's weitergehen?", 1, 5, sliste )




### PmB starten ###
If (skinN = 2)
  Run( "\My Flash Disk\PmB\SystemInformation.exe")
### Tacho starten ###
ElseIf (skinN = 3)
  Run( "\My Flash Disk\PmB\GPSTacho\GPSTacho.exe")
### Navi starten ###
Else
  ###ggf. anderes Skin eintragen ###
  if (skinN <> 1)
	### ini-File patchen ###
	IniWrite( "\My Flash Disk\Igo8\sys.txt", "interface", "theme", """skin\" &sliste[skinN]&".zip""")
	Sleep( 500 )
  EndIf
    ### Staren von Igo8 ###
  Run( "\My Flash Disk\Igo8\igo8.exe" )
endIf

Der Code ist weitgehend dem SkinChanger abgekupfert.

Die Pfade müssen natürlich ggf. Euren Installationsorten angepasst werden!

Ich freu' mich, wenn es Einem/r nützt und übernehme natürlich keine Gewähr für irgendwelche Schäden, die Ihr an Eurem Z100 verursacht. Ich habe nur das Z100 und es also auch nirgendwo anders getestet.

Herzliche Grüße, Thomas