[Sanek_ntsk]

Напишите пожалста коды открытия и закрытия CD-ROM'a.

[<<D>>]

Открыть сидивертку можно так:

...
uses ...,mmsystem;
...
procedure TForm1.FormClick(Sender: TObject);
var op:mci_open_parms;
gp:mci_generic_parms;
sp:MCI_SET_PARMS;
begin
op.dwCallback:=handle;
op.lpstrDeviceType:='cdaudio';//см. system.ini раздел [mci]
mcisendcommand(0,mci_open,MCI_WAIT or MCI_OPEN_TYPE,cardinal(@op));
sp.dwCallback:=handle;
mcisendcommand(op.wDeviceID,mci_set,MCI_SET_AUDIO or MCI_SET_DOOR_OPEN,cardinal(@sp));
gp.dwCallback:=handle;
mcisendcommand(op.wDeviceID,mci_close,MCI_WAIT,car dinal(@gp));
end;

[Winny]

А у меня код меньше
Открыть CD-ROM:

Код:

mciSendString('Set cdaudio door open wait', nil, 0, Handle);

Закрыть CD-ROM:

Код:

mciSendString('Set cdaudio door closed wait', nil, 0, Handle);

[Decoding]

http://decoding.narod.ru/faq/hard/di...om001.html#001 (см. второй вариант)

to Winny:
Твой код будет некорректно работать если на компьютере установлено более одного CD/DVD привода. Будет открываться только один, причем нельзя выбрать какой.

[Winny]

Ясень пень так и будет (извиняюсь за выражение, не принимайте близко к сердцу), просто забыл написать это