Форум: "WinAPI";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];

Вниз

Как открывать дверцы CDROM если их два на компе ?   Найти похожие ветки 

← →
Kirill_   (2001-12-13 02:07) [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 и с ним работай

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c