Как открывать дверцы CDROM если их два на компе ? [D5, Win95/98]
ОГО © (2001-12-11 17:44:00)
То есть как мне одновременно открывать две дверцы или выбирать
какой открыть?
У меня есть пример открытия CDROM но только если он один в
системе.
Kirill_ (2001-12-13 02:07:00) [1]
procedure TForm1.Button1Click(Sender: TObject);
var SetParm: TMCI_Set_Parms;
begin
mciSendCommand(CD.DeviceID,mci_Set,MCI_SET_DOOR_OPEN,Longint(@SetParm));
end;
procedure TForm1.Button2Click(Sender: TObject);
var SetParm: TMCI_Set_Parms;
begin
mciSendCommand(CD.DeviceID,mci_Set,mci_Set_Door_Closed,Longint(@SetParm));
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
CD.Open;
end;
procedure TForm1.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
CD.Close;
end;
Ну что-то вроде это-го - найди Pointer на MCI и с ним
работай
Наверх 
ЧАТ |
Орешник |
|
