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




Вниз

Как открывать дверцы 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 и с ним работай




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




Наверх





Память: 0.71 MB
Время: 0.019 c
3-32151           ТеньЛуны              2002-01-16 13:14  2002.02.11  
CORBA


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


3-32162           Alex Y.               2002-01-15 18:38  2002.02.11  
Надежность CommitRetaining


3-32138           dymka                 2002-01-15 08:50  2002.02.11  
TQuery без TDatabase


7-32352           Новенький             2001-11-06 00:58  2002.02.11  
Нужно написать маленький чат на Delphi для работы через Lpt-порт