Strona: [  << <   1   > >>  ]  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
Pokaż profil astro  Wyślij email do astro   
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

http://www.mentalis.org/apilist/EADB2D153F01C2CE33A2FD85A009E5EF.html


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

15-09-2004 03:23
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
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
Pokaż profil koala  Wyślij email do koala        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
Pokaż profil astro  Wyślij email do astro   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1