Помогите с API

[Егор]

Какая API чтоб откруть CD-rom

[Cyrax]

вот эта

Код: Выделить всё

Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByRef dwParam2 As Any) As Long

пример использования в API-Guide

[Boris_BGB]

Открыть - закрыть CD-Rom

В модуль(!):

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

В кнопку или код:

Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0, 0)' - ЗАКРЫТЬ
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0, 0)' - Открыть

[Егор]