Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.11;
Скачать: CL | DM;

Вниз

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

 
ОГО   (2001-12-11 17:44) [0]

То есть как мне одновременно открывать две дверцы или выбирать какой открыть?
У меня есть пример открытия 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 вся ветка

Текущий архив: 2002.02.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.008 c
1-32233
Вовчик
2002-01-25 21:07
2002.02.11
Delphi


4-32367
AndrewInc
2001-12-13 16:58
2002.02.11
Помогите скрыть программу спанели задач.


3-32178
Malyatko
2002-01-14 08:09
2002.02.11
База данных + Ini файл.


1-32194
daosv
2002-01-26 13:34
2002.02.11
Как узнать на какие экранные координаты переместился левый и правый верхний угол формы при перетаскивании самой формы?


3-32160
Константин
2002-01-16 16:33
2002.02.11
Ничего не понимаю!!!