Lead-In Perioxi tou CDROM

[MindControl]

3erei kaneis pos mporoume na broume tin arxi tis Lead-In perioxis tou CDROM ??

 

-+MindC0ntr0L+-

[Mihos_Gr]

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 Sub cmdTrayOut_Click()

x = mciSendString("set CDAudio door open", 0&, 0, 0)

End Sub

 

Private Sub cmdTrayIn_Click()

x = mciSendString("set CDAudio door closed", 0&, 0, 0)

End Sub

 

Elpizw na boh8hsa....

[MindControl]

Euxaristo gia to reply...

E3etazo to tip pou mou edoses..

Thanks!

 

-+MindCoNtroL+-

[Mihos_Gr]

De 3erw an leitourgei apolyta, se mena mia fora epiase, alla... epeidh exw CD-REC kai DVD anoigei to drive pou einai dhlwmeno ws AUDIO apo to leitourgiko... an breis kati 'h akoma kai an sou doulepse kane ena reply plz. Thanx

[Dvs]

3erei kaneis pos mporoume na broume tin arxi tis Lead-In perioxis tou CDROM ??

 

Na diavazeis to cdrom i na anoigeis/kleineis to tray?

[MindControl]

Dvs :

 

Me endiaferei na mporo na bro tin arxi tis

Lead-In perioxis tou CD pou einai sto drive.

[Dvs]

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 Sub cmdTrayOut_Click()

x = mciSendString("set CDAudio door open", 0&, 0, 0)

End Sub

 

Private Sub cmdTrayIn_Click()

x = mciSendString("set CDAudio door closed", 0&, 0, 0)

End Sub

 

Elpizw na boh8hsa....

-------------------

 

ara auto mallon den dou kanei...

ti exetazeis? <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />