Как выдвинуть лоток конкретного CD-ROM a без помощи TMediaPlayer [D6, D7, Win95/98, Win2k]
KPV-10k © (2003-03-25 21:14:00)
Как выдвинуть/задвинуть дверцу конкретного CD-ROM"a без помощи
TMediaPlayer(или как получить DeviceID любого CD-ROM"a для ф-ции
mciSendCommand
ed (2003-03-25 23:35:00) [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;
Наверх 
ЧАТ |
Орешник |
|
