Habe navirunner new line v2 eingespielt: so weit alles ok, nur der PDF-Reader
lies sich einfach nicht starten. Nach langem Studium der entsprechenden Mort
Skripte habe ich schließlich ein eigenes erstellt, das auch läuft.
Wenn es jemanden interessiert: hier ist mein Skript.
################################################
#
# MANUAL_PROMPT.mscr
#
################################################
#
# Purpose: Prompts for the manual to be shown
#
#
# Platform(s): PNA
#
# PNA Tested: Medion MD 97630, Model E4230 , Windows CE 5.0 Core
#
# Author: jwoegerbauer
#
# Rel. 0.a 3.7.2009
#
# Release Note(s): <none>
#
#
#################################################
# prerequisites: FOXIT READER 1.0 for Windows CE 5.0
# http://mirrors.foxitsoftware.c…xitReader10_CE5.0_enu.zip
#
################################################
#
Local()
#
isRunning = WndExists( "MANUAL_PROMPT" )
# if MANUAL_PROMPT.exe is already running close it.
# This is done to get consistent operation
If ( isRunning )
Close( "MANUAL_PROMPT" )
EndIf
#
Set MYSLEEP, 300
Set MANUAL_DIR, "\My Flash Disk\_Manuals\"
Set MANUAL_READER, "\My Flash Disk\programme\PDFReader\Foxit Reader for WINCE 5.0.exe"
Set WINDOW_NAME, "Foxit Reader" # for WINCE 5.0"
#
Sleep %MYSLEEP%
#
If (Not DirExists(%MANUAL_DIR%))
SetMessageFont(20, "Verdana")
BigMessage("^NL^^NL^Verzeichnis^NL^" & %MANUAL_DIR% & "^NL^nicht gefunden.", "Fehler")
Exit
EndIf
#
n=0
ForEach FileName in files (%MANUAL_DIR% & "*.pdf")
n=n+1
ManualFilesFullFileName[n] = FileName
#
# extracts filename from full pathname
Split(ManualFilesFullFileName[n], "\", 0, parts )
ManualFiles[n] = parts[ ElementCount( parts ) ]
Clear(parts)
#
EndForEach
#
If(n < 1)
SetMessageFont(20, "Verdana")
BigMessage("^NL^^NL^Keine Handbücher im Verzeichnis^NL^" & %MANUAL_DIR% & "^NL^gefunden.", "Fehler")
Clear(ManualFiles)
Clear(ManualFilesFullFilename)
Exit
EndIf
#
If (Not FileExists(%MANUAL_READER%))
SetMessageFont(20, "Verdana")
BigMessage("^NL^^NL^Programmdatei^NL^" & %MANUAL_READER% & "^NL^nicht gefunden!!", "Fehler")
Clear(ManualFiles)
Clear(ManualFilesFullFilename)
Exit
EndIf
#
# preset to cancelled
index=0
#
SetChoiceEntryFormat(26, 20, "Verdana")
index = Choice("ManualViewer", "^NL^*** Select the Manual to be shown ***^NL^", 0,0, ManualFiles)
#
Clear(ManualFiles)
If(index=0)
Clear(ManualFilesFullFileName)
Sleep %MYSLEEP%
Exit
EndIf
#
isRunning = WndExists(%WINDOW_NAME% )
# if WINDOW_NAME is already running close it.
# This is done to get consistent operation
If ( isRunning )
Close(%WINDOW_NAME% )
EndIf
Sleep 1000
#
Set MANUAL_SELECTED, ManualFilesFullFileName[index]
Clear(ManualFilesFullFileName)
#
Sleep %MYSLEEP%
Run(%MANUAL_READER%)
Sleep 1000
# clicks 'menu'
MouseClick (%WINDOW_NAME%,10, 10)
Sleep %MYSLEEP%
# selects 'open'
SendDown
Sleep %MYSLEEP%
# opens file dialog
MouseClick(%WINDOW_NAME%,10, 25)
Sleep %MYSLEEP%
# inputs file name
SendKeys (%MANUAL_SELECTED%)
Sleep %MYSLEEP%
SendCR
SendOK
#
# done for now
Exit
#
################################################
