Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CD-Laufwerke

CD-Laufwerke
19.11.2002 09: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
Anzeige
Re: CD-Laufwerke
19.11.2002 10:03:47
Hajo_Zi
Hallo Uli

Jörg Lorenz hat mal ein Geckprogramm geschrieben.

Gruß Hajo

Re: CD-Laufwerke
19.11.2002 10: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 10:18:57
Thomas Risi
Hallo Uli

Versuch's mal so ...


Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
 ByVal lpstrCommand As StringByVal lpstrReturnString As String, _
 ByVal uReturnLength As LongByVal hwndCallback As LongAs 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
 

     Code eingefügt mit Syntaxhighlighter 1.15

Gruß

Thomas

Risi Thomas Softwareentwicklung


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige