|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2007, 03:17 | #1 |
Бот
Администратор
Регистрация: 27.05.2007
Сообщений: 182
|
обновление в блоге - Управление CD приводом
Управление CD приводом
pblog.ruCD привода (далее просто CD)я думаю пользуются все без исключения. Давайте разберём как создать несложную программу открытия CD. Создадим новый проект. Кидаем на форму ComboBox и две Button. Создадим две функции: function CDOpen(Drive: PChar): Boolean; var Res: MciError; OpenParm: TMCI_Open_Parms; Flags: DWord; S: string; DeviceID: Word; begin Result := false; S := Drive + ‘:’; Flags := mci_Open_Type or mci_Open_Element; with OpenParm do begin dwCallback := 0; lpstrDeviceType := ‘CDAudio’; lpstrElementName := PChar(S); end; Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm)); if Res 0 then exit; DeviceID := OpenParm.wDeviceID; try Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0); if Res = 0 then exit; Result := True; finally mciSendCommand(DeviceID, MCI_OPEN, Flags, Longint(@OpenParm)); end; end; function CDClose(Drive: PChar): Boolean; var (more…) |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
обновление в блоге - Управление клавиатурой | Pblog | Обсуждение статей | 0 | 27.05.2007 03:17 |
обновление в блоге - Управление мышью | Pblog | Обсуждение статей | 0 | 27.05.2007 03:17 |
обновление в блоге - Управление монитором | Pblog | Обсуждение статей | 0 | 27.05.2007 03:17 |