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

Вниз

MCI и ComboBox   Найти похожие ветки 

 
BaRToV   (2003-04-15 21:21) [0]

procedure CloseCD(Drive: string);
var
DeviceID: DWORD;
OpenParm: MCI_OPEN_PARMS;
begin
OpenParm.dwCallback := 0;
OpenParm.lpstrDeviceType := "CDAudio";
OpenParm.lpstrElementName := PChar(Drive + ":");
mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, Longint(@OpenParm));
DeviceID := OpenParm.wDeviceID;
mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
mciSendCommand(DeviceID, MCI_CLOSE, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, Longint(@OpenParm));
end;

Вот процедура закрытия дверки CD, которая используется в моем компоненте.
Когда мы ей воспользуемя, то невозможно потом по нажатию кнопки мыши в Win9x отркыть ComboBox, пока не передадим кому-нибудь фокус.
Скорее всего ошибка где-то в процедуре...


 
BaRToV   (2003-04-16 02:13) [1]

Хм... посылал CBN_xxx и из-за этого проблемы были...
Тема закрыта.



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

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

Наверх




Память: 0.46 MB
Время: 0.023 c
14-99738
Unregistered
2003-12-08 03:35
2003.12.30
Что это было и где искать вчерашние дискуссии ?


4-99811
fishca
2003-11-03 09:33
2003.12.30
Использование NtQuerySystemInformation в Delphi.


14-99709
Dimman1
2003-12-09 11:16
2003.12.30
Использование снифферов в сети с коммутаторами


1-99641
klyonov
2003-12-11 15:54
2003.12.30
и снова ZIP


14-99757
Rafe
2003-12-07 02:46
2003.12.30
Сайт для он-лайн слежкой за результатами выборов...