дисковод в delphi - Общие вопросы Delphi

kolynw · 09.12.2012, 19:03

как открыть или закрыть дисковод в delphi помощью кнопок

kolynw · 09.12.2012, 19:34

Для закрытия CD-ROM:

Uses MMSystem;
...
mciSendString('Set cdaudio door open wait', nil, 0, handle);

Для открытия CD-ROM:

Uses MMSystem;
...
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

09.12.2012, 19:03	#1
kolynw Новичок Джуниор Регистрация: 09.12.2012 Сообщений: 2	дисковод в delphi как открыть или закрыть дисковод в delphi помощью кнопок

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Не работает дисковод	Ольга1	Компьютерное железо	21	05.01.2011 00:07
Дисковод	Bustle	Компьютерное железо	0	24.12.2010 17:12
отказал дисковод	Programm_kz	Компьютерное железо	2	21.03.2010 08:35
не отзывается дисковод	Zuhra	Помощь студентам	1	27.05.2009 18:11
Дисковод	Pelengator	Общие вопросы Delphi	1	19.05.2008 20:42

09.12.2012, 19:34	#2
kolynw Новичок Джуниор Регистрация: 09.12.2012 Сообщений: 2	Для закрытия CD-ROM: Uses MMSystem; ... mciSendString('Set cdaudio door open wait', nil, 0, handle); Для открытия CD-ROM: Uses MMSystem; ... mciSendString('Set cdaudio door closed wait', nil, 0, handle);