Как программно открыть dvd rom в delphi 2005

[TRIZER]

эти функции не сработают с несколькими CD

вот этот код проверял - работает

  

// (c) 1999 Jan Peter Stotz

unit DriveTools;

interface

uses

Windows, SysUtils, MMSystem;

function CloseCD(Drive : Char) : Boolean;
function OpenCD(Drive : Char) : Boolean;

implementation

function OpenCD(Drive : Char) : Boolean;
Var

Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin

Result:=false;
S:=Drive+':';
Flags:=mci_Open_Type or mci_Open_Element;
With OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Res<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
IF Res=0 Then exit;Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

function CloseCD(Drive : Char) : Boolean;
Var

Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin

Result:=false;
S:=Drive+':';
Flags:=mci_Open_Type or mci_Open_Element;
With OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Res<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
IF Res=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;


end.

если вдруг нарушаю правила - не бейте сильно

[Casper-SC]

А как програмнно узнать, что сейчас привод закрыт или наоборот открыт? Например мне надо на горячую клавишу функцию поставить.

[TRIZER]

Хех ... я не вижу смысла, зачем тебе узнавать - закрыт или нет

[Casper-SC]

Сообщение от TRIZER

Хех ... я не вижу смысла, зачем тебе узнавать - закрыт или нет

Ну например ставлю я на Alt+Space Открыть/Закрыть CD-ROM и как это реализовать? Не ставить же 2 команды подряд. Надо же как-то определить открыт он или нет.

Надо ещё не забывать, что CD-ROM может быть уже открыт другим способом, не нашей программой и поэтому типа нажал открыть CD-ROM, переменная Opened := True не прокатит