Как выдвинуть лоток конкретного CD-ROM a без помощи TMediaPlayer

← →
KPV-10k © (2003-03-25 21:14) [0]

Как выдвинуть/задвинуть дверцу конкретного CD-ROM"a без помощи TMediaPlayer(или как получить DeviceID любого CD-ROM"a для ф-ции mciSendCommand

← →
ed (2003-03-25 23:35) [1]

function OpenCD(Drive : Char) : Boolean;
Var
Err : MciError;
OpenParm: TMCI_Open_Parms;

Flags : DWord;
S : String;
DeviceID : Word;
begin
Result:=false;
S:=Drive+":";
Flags:=mci_Open_Type or mci_Open_Element; // См. mci_Open
With OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(S);
end;
Err := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Err<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Err:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);

IF Err=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
disk:Char;//этой переменной присваивай нужный привод
begin

OpenCD(Disk);
end;

Как выдвинуть лоток конкретного CD-ROM a без помощи TMediaPlayer Найти похожие ветки