VPF::открыть CD-ROM - Форум программистов

vovan430

Дата 24.8.2005, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 13.8.2005
Где: Иркутская обл. г. Тайшет

Репутация: нет
Всего: нет

уважаемые программисты как мне открыть и закрыть CD-ROM не получается по DRKB. Подскажите

EDuard

Дата 24.8.2005, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 331
Регистрация: 1.8.2005
Где: Синее нигде

Репутация: нет
Всего: 7

Код


mciSendString('Set cdaudio door open wait', nil, 0, application.handle);
{Функция открытия CD-ROM'а}

mciSendString('Set cdaudio door closed wait', nil, 0, application.handle); 
{Функция закрытия CD-ROM'а}

В Uses пропиши mmsystem.

--------------------

Dimannn

Дата 26.8.2005, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Код


var OpenParm: TMCI_Open_Parms;
    GenParm: TMCI_Generic_Parms;
    SetParm: TMCI_Set_Parms;
    DI: Cardinal;


procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendCommand(0,MCI_OPEN,MCI_OPEN_TYPE,longint(@OpenParm));
    DI:=OpenParm.wDeviceID;
    mciSendCommand(DI,MCI_SET,MCI_SET_DOOR_OPEN,longint(@SetParm));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
OpenParm.lpstrDeviceType:= 'CDAudio';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 mciSendCommand(DI,MCI_SET,MCI_SET_DOOR_CLOSED,longint(@SetParm));
    mciSendCommand(DI,MCI_CLOSE,MCI_NOTIFY,longint(@GenParm));
end;

Всегда этим пользовался. всегда работало.

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »