Работа с сидюками
Срочно нужны 2 проги. Первая должна заставить вылезти сидюк (допустим E: ), а вторая - вставить его.
на счет только Е: не знаю, но выезжает
ЗАЦЕНИ ВЕЩЬ
uses
MMSystem;
.....
var
OpenParm: TMCI_Open_Parms;
GenParm: TMCI_Generic_Parms;
SetParm: TMCI_Set_Parms;
DI : Cardinal;
OK: boolean;
......
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenParm.lpstrDeviceType := 'CDAudio';
repeat
OK:=false;
mciSendCommand(0, mci_Open, mci_Open_Type, Longint(@OpenParm));
DI := OpenParm.wDeviceID;
mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));//open
sleep(1000); //задержка в открытом состоянии
mciSendCommand(DI, mci_Set, MCI_SET_DOOR_CLOSED, Longint (@SetParm)) ;//close
mciSendCommand(DI, mci_Close, mci_Notify, Longint (@GenParm) );
sleep(2000);//задержка в закрытом состоянии
until OK;
end;
(Может пригодится если прога должна работать с настоящим, а не виртуальным диском, типа защиты)