Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > открыть CD-ROM

Автор: vovan430 24.8.2005, 18:59

уважаемые программисты как мне открыть и закрыть CD-ROM не получается по DRKB. Подскажите

Автор: EDuard 24.8.2005, 21:54

Код


mciSendString('Set cdaudio door open wait', nil, 0, application.handle);
{Функция открытия CD-ROM'а}

mciSendString('Set cdaudio door closed wait', nil, 0, application.handle); 
{Функция закрытия CD-ROM'а}

В Uses пропиши mmsystem.

Автор: Dimannn 26.8.2005, 17:53

Код


var OpenParm: TMCI_Open_Parms;
    GenParm: TMCI_Generic_Parms;
    SetParm: TMCI_Set_Parms;
    DI: Cardinal;


procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendCommand(0,MCI_OPEN,MCI_OPEN_TYPE,longint(@OpenParm));
    DI:=OpenParm.wDeviceID;
    mciSendCommand(DI,MCI_SET,MCI_SET_DOOR_OPEN,longint(@SetParm));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
OpenParm.lpstrDeviceType:= 'CDAudio';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 mciSendCommand(DI,MCI_SET,MCI_SET_DOOR_CLOSED,longint(@SetParm));
    mciSendCommand(DI,MCI_CLOSE,MCI_NOTIFY,longint(@GenParm));
end;

Всегда этим пользовался. всегда работало.