Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak otowrzyć CD-ROM???
anonim




Typ: Nie zarejestrowany
Jak otowrzyć CD-ROM???

Hej. Wie ktoś może jaką funkcją można otworzyć CD? w VB? Prosiłbym bardzo o jakieś gotowe skrypty.

05-03-2005 15:53
  
stefan




Typ: neutral
Postów: 9
Zarejestrowany: Dec 2004
Jak otowrzyć CD-ROM???

Wystarczy tylko poczytać kilka porzednich postów
i tam jest gotowy opis.

05-03-2005 18:55
Pokaż profil stefan  Wyślij email do stefan   
Adrian



Typ: neutral
Postów: 59
Zarejestrowany: Jan 2005

Hehehehe A po co szukać ?? Jak można forum zanieczyścić. To był taki mały żart(wogule nie śmieszny)


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 Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Dim X as Long
Dim S as String * 40 'zmienna do której przypisywane są odpowiedzi z funkcji a jej długość może być inna
Private Sub Command1_Click()
X = mciSendString("set cdaudio door open", S, 40, 0) End Sub
Private Sub Command2_Click()
X = mciSendString("set cdaudio door closed", S, 40, 0) End Sub


Jak nie skapisz oco chodzi w tym kodzie to już nigdy ci nie pomogę


_____________________________________________
+_+ADI SOFTWARE+_+

05-03-2005 21:37
Pokaż profil Adrian  Wyślij email do Adrian   Odwiedź stronę Adrian  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1