Hallo nochmal!
Kann mir jemand sagen, wie ich veranlasse, dass eine CD-ROM wieder ausgeworfen wird, wenn sich darauf nicht die Datei xy befindet?
Wie z.B. bei Setup-Anwendungen mit mehreren Disks...
Dankeschön!
Hallo nochmal!
Kann mir jemand sagen, wie ich veranlasse, dass eine CD-ROM wieder ausgeworfen wird, wenn sich darauf nicht die Datei xy befindet?
Wie z.B. bei Setup-Anwendungen mit mehreren Disks...
Dankeschön!
Check mal CDTray(...)
Kurz mal ein Beispiel:
$Drive = 'X:'
$Datei = 'autorun.exe'
CDTray($Drive, 'open')
MsgBox(0, "", "Bitte die nächste CD einlegen und dann OK drücken")
CDTray($Drive, 'closed')
Do
Sleep(50)
$Bereit = DriveStatus($Drive)
Until $Bereit = 'READY'
If Not FileExists($Drive&'\'&$Datei) Then
CDTray($Drive, 'open')
MsgBox(0, "", "Bitte die richtige CD einlegen!")
Else
install()
EndIf
Func install()
MsgBox(0, "", "Das Programm wurde erfolgreich installiert!")
EndFunc
Dankeschön!
Mal schaun ob es funzt