| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MCI и ComboBox

BaRToV ©   (2003-04-15 21:21:00) 

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:00) [1]

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

---

Наверх