• Home
 · 
• Windows System Services
 · 
• This will open cdroms on a windows computer

This will open cdroms on a windows computer

This will open cdroms on a windows computer

API Declarations



Dim oWMP
Dim NumCDROMs



Rate This will open cdroms on a windows computer

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If NumCDROMs.Count >= 1 Then
        For i = 0 To NumCDROMs.Count - 1
               NumCDROMs.Item(i).Eject
        Next
End If
End Sub

Private Sub Form_Load()
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set NumCDROMs = oWMP.cdromCollection

For z = 0 To NumCDROMs.Count - 1
    List1.AddItem z
Next z
End Sub

Private Sub List1_dblClick()
q = List1.Text
NumCDROMs.Item(q).Eject
End Sub