Как открыть\закрыть дверцу cd-rom'а в дельфи в консольном приложении - Win Api

Proger®© · 10.10.2009, 13:58

Как открыть\закрыть дверцу cd-rom'а в дельфи в консольном приложении?
mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);
все модули подключаю как в vcl forms application, а дельфи не знает что такое handle.

raxp · 10.10.2009, 14:00

проверьте свои uses

Proger®© · 10.10.2009, 14:01

да сто раз проверял, нифига не помогает.

Proger®© · 10.10.2009, 14:04

если в форме программировать, то работает, если главном коде - не работает.

russian-stalker · 10.10.2009, 14:06

У меня работает:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,mmsystem;

begin
  mciSendString('Set cdaudio Door Open Wait', nil, 0, 0);
end.

Proger®© · 10.10.2009, 14:13

Спасибо, сегодня проверю.

Proger®© · 10.10.2009, 14:14

А какой Delphi? Я вроде пробовал так...

raxp · 10.10.2009, 14:17

однако...
windows

russian-stalker · 10.10.2009, 14:17

7,2009
А на что ругалось то?
У вас написано Handle, но в консольном приложении его нету, поэтому я его заменил на 0

Proger®© · 11.10.2009, 14:10

всё нормально, спасибо.

10.10.2009, 13:58	#1
Proger®© Новичок Джуниор Регистрация: 10.10.2009 Сообщений: 6	Как открыть\закрыть дверцу cd-rom'а в дельфи в консольном приложении Как открыть\закрыть дверцу cd-rom'а в дельфи в консольном приложении? mciSendString('Set cdaudio Door Open Wait', nil, 0, handle); все модули подключаю как в vcl forms application, а дельфи не знает что такое handle.

10.10.2009, 14:00	#2
raxp Старожил Регистрация: 29.09.2009 Сообщений: 9,713	проверьте свои uses Разработки и научно-технические публикации :: Видеоблог :: Твиттер Radar systems engineer & Software developer of industrial automation

10.10.2009, 14:06	#5
russian-stalker Участник клубаДжуниор Регистрация: 23.08.2008 Сообщений: 1,616	У меня работает: Код: `program Project2; {$APPTYPE CONSOLE} uses SysUtils,mmsystem; begin mciSendString('Set cdaudio Door Open Wait', nil, 0, 0); end.` pushl $0x18E3DF6B call ICQ

10.10.2009, 14:17	#8
raxp Старожил Регистрация: 29.09.2009 Сообщений: 9,713	однако... windows Разработки и научно-технические публикации :: Видеоблог :: Твиттер Radar systems engineer & Software developer of industrial automation

10.10.2009, 14:17	#9
russian-stalker Участник клубаДжуниор Регистрация: 23.08.2008 Сообщений: 1,616	7,2009 А на что ругалось то? У вас написано Handle, но в консольном приложении его нету, поэтому я его заменил на 0 pushl $0x18E3DF6B call ICQ

10.10.2009, 14:01	#3
Proger®© Новичок Джуниор Регистрация: 10.10.2009 Сообщений: 6	да сто раз проверял, нифига не помогает.

10.10.2009, 14:04	#4
Proger®© Новичок Джуниор Регистрация: 10.10.2009 Сообщений: 6	если в форме программировать, то работает, если главном коде - не работает.

10.10.2009, 14:13	#6
Proger®© Новичок Джуниор Регистрация: 10.10.2009 Сообщений: 6	Спасибо, сегодня проверю.

10.10.2009, 14:14	#7
Proger®© Новичок Джуниор Регистрация: 10.10.2009 Сообщений: 6	А какой Delphi? Я вроде пробовал так...

11.10.2009, 14:10	#10
Proger®© Новичок Джуниор Регистрация: 10.10.2009 Сообщений: 6	всё нормально, спасибо.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Борьба с крякозябрами в консольном приложении	fs444	C++ Builder	16	15.12.2009 19:04
Подскажите, как в консольном приложении заставить программу ждать нажатия клавиши(си))	Александр Елис	Помощь студентам	2	19.09.2009 19:38
Цвет текста в консольном приложении Linux	a10nan	Общие вопросы C/C++	14	21.08.2009 23:41
Содержимое экрана в полноекранном консольном приложении	Роман Радер	Win Api	1	29.03.2009 20:04
Как через дельфи открыть папку в проводнике?	t3ns0r	Общие вопросы Delphi	6	28.03.2009 21:32