CD-Laufwerke

Forumthread: CD-Laufwerke
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: CD-Laufwerke

CD-Laufwerke

19.11.2002 10:55:36

Uli

Hallo zusammen,

wie kann ich per VB die CD-Laufwerke (CD-Brenner oder DVD oder Audio CD öffnen und schliessen, habe im Archiv nichts gefunden, oder das falsche Stichwort eingegeben.

Gruss
Uli

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: CD-Laufwerke

19.11.2002 11:03:47

Hajo_Zi
Re: CD-Laufwerke

19.11.2002 11:06:04

Uli
Re: CD-Laufwerke

19.11.2002 11:18:57

Thomas Risi

Re: CD-Laufwerke

19.11.2002 11:03:47

Hajo_Zi

Hallo Uli

Jörg Lorenz hat mal ein Geckprogramm geschrieben.

Gruß Hajo

Re: CD-Laufwerke

19.11.2002 11:06:04

Uli

Ist schon nicht schlecht, betrifft aber nur die Audio CD, Wenn man das mit dem Brenner oder mit dem DVD machen will, beginnen die Probleme

Re: CD-Laufwerke

19.11.2002 11:18:57

Thomas Risi

Hallo Uli

Versuch's mal so ...

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
    OpenDoor "F"
End Sub
Private Sub Command2_Click()
    CloseDoor "F"
End Sub
Private Sub CloseDoor(ByVal Name As String)

    Dim AliasName As String
    AliasName = "Laufwerk" & Name
    mciSendString "Open " & Name & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0
    mciSendString "Set " & AliasName & " Door Closed", 0, 0, 0

End Sub
Private Sub OpenDoor(ByVal Name As String)

    Dim AliasName As String
    AliasName = "Laufwerk" & Name
    mciSendString "Open " & Name & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0
    mciSendString "Set " & AliasName & " Door Open", 0, 0, 0

End Sub