############################################
# DLL Copy nach UPDATE und Neuinstallation #
############################################
Sound = "\Storage Card\Changer\sounds"
Me = "\My Flash Disk\navigation\multimedia\"
#If (DirExists(%Me%&"contactmanager\") or (DirExists(%Me%&"mp3player\") or (DirExists(%Me%&"PictureViewer\")or (DirExists(%Me%&"Sudoku\") ) ) ) )
SetChoiceEntryFormat ( 25 , 18 , Arial )
SetMessageFont(16,Arial)
# DLL verteilung für MP3 PictureViewrt ContactManager Sudoku
dll_Pfad = "\My Flash Disk\navigation\"
cont = %Me%&"ContactManager\"
MP3 = %Me%&"mp3player\"
PIC = %Me%&"PictureViewer\"
SUD = %Me%&"Sudoku\"
If (DirExists(%Me%&"contactmanager\"))
If ( not FileExists (%Me%&"contactmanager\graphicslib.dll"))
typ = "contactmanager"
Call ("Warten")
copy( %dll_Pfad%&"\graphicslib.dll",%cont%&"\graphicslib.dll",1)
copy( %dll_Pfad%&"\EBModelConverter.dll",%cont%&"\EBModelConverter.dll",1)
xcopy( %dll_Pfad%&"\h*.dll",%cont%&"\",1,1)
xcopy( %dll_Pfad%&"\s*.dll",%cont%&"\",1,1)
Playsound(%Sound%&"\INFBEG.WAV")
EndIf
EndIf
If (DirExists(%Me%&"mp3player\"))
If ( not FileExists (%Me%&"mp3player\graphicslib.dll"))
typ = "mp3player"
Call ("Warten")
copy( %dll_Pfad%&"\graphicslib.dll",%MP3%&"\graphicslib.dll",1)
copy( %dll_Pfad%&"\EBModelConverter.dll",%MP3%&"\EBModelConverter.dll",1)
xcopy( %dll_Pfad%&"\h*.dll",%MP3%&"\",1,1)
xcopy( %dll_Pfad%&"\s*.dll",%MP3%&"\",1,1)
Playsound(%Sound%&"\INFBEG.WAV")
EndIf
EndIf
If (DirExists(%Me%&"pictureviewer\"))
If ( not FileExists (%Me%&"pictureviewer\graphicslib.dll"))
typ = "pictureviewer"
Call ("Warten")
copy( %dll_Pfad%&"\graphicslib.dll",%PIC%&"\graphicslib.dll",1)
copy( %dll_Pfad%&"\EBModelConverter.dll",%PIC%&"\EBModelConverter.dll",1)
xcopy( %dll_Pfad%&"\H*.dll",%PIC%&"\",1,1)
xcopy( %dll_Pfad%&"\s*.dll",%PIC%&"\",1,1)
Playsound(%Sound%&"\INFBEG.WAV")
EndIf
EndIf
If (DirExists(%Me%&"sudoku\"))
If ( not FileExists (%Me%&"sudoku\graphicslib.dll"))
typ = "sudoku"
Call ("Warten")
copy( %dll_Pfad%&"\graphicslib.dll",%SUD%&"\graphicslib.dll",1)
copy( %dll_Pfad%&"\EBModelConverter.dll",%SUD%&"\EBModelConverter.dll",1)
xcopy( %dll_Pfad%&"\H*.dll",%SUD%&"\",1,1)
xcopy( %dll_Pfad%&"\s*.dll",%SUD%&"\",1,1)
Playsound(%Sound%&"\INFBEG.WAV")
EndIf
EndIf
#EndIf
# Bildschirmanzeige während der Inst
Sub Warten
StatusListEntryFormat ( 35 , 24 , Arial )
StatusInfo( "Bitte warten. Nicht ausschalten!" )
StatusMessage( %typ%&" DLL,", ST_LIST, false )
StatusMessage( "Kopiervorgang läuft ,", ST_LIST, false )
StatusMessage( "nur beim ersten Menüstart!", ST_LIST, false )
StatusShow()
sleep (300)
EndSub
Alles anzeigen