Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: Open Cd-romu ? astro Typ: neutral Postów: 2 Zarejestrowany: Sep 2004 Open Cd-romu ? Witam.... Do mojego programu prubuje zrobić opcję wysuń/wsuń tackę od cdeka i tu sie zaczyna problem... Nie zna ktoś jakiejś opcji w api... Byłbym z góry wdzięczny.. _____________________________________________ Martys "ASTRO" Paweł 15-09-2004 00:56 marcin_an Forumowicz Typ: neutral Postów: 1265 Zarejestrowany: Mar 2004 _____________________________________________ Popieram losmaca: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie - rzucacie ochłapy i trzeba się domyślać o co chodzi!!! ___ NOWE FORUM 15-09-2004 03:23 koala Typ: neutral Postów: 9 Zarejestrowany: Nov 2003 To powinno pomóc: 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 Mogę ci przesłać inne ciekawe instrukcje związane z tą funkcją API. Pozdrowienia. [Post edytowany dnia 15-09-2004 08:43 przez koala] 15-09-2004 08:41 1333014 astro Typ: neutral Postów: 2 Zarejestrowany: Sep 2004 Dzięki panowie ... zaraz będe sprawdzał co i jak... _____________________________________________ Martys "ASTRO" Paweł 15-09-2004 23:21 Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |