Въпрос за msiSendString

Yo!

Многа благодаря на Jonie, Wes и bofh.

Сега имам нов въпрос. Как мога да използвам функцията mciSendString в Delphi?

Ами не мога да ти помгна много имам само един пример за това - мисля 4е работи или поне под D2 работеше

To open the CD-ROM:
--------------------------------------------------------------------------------
mciSendString('Set cdaudio door open wait', nil, 0, handle);
--------------------------------------------------------------------------------

To close the CD-ROM:
--------------------------------------------------------------------------------
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Едно допълнение : не знам за какво то4но ти трябва но мисля 4е е по добре да използваш msiSendCommand

Виж сорсовете в mmsystem.pas във source\rtl\win поддиректорията на Delphi.

Кажи за какво точно ти трябва тая функция (какво устройство ще управляваш)?

Mixy

Ами на мен ми трябва за CD-ROM-а, но Delphi-то се задави с тази функция и не иска да компилира.

Кое Delphi ползваш (коя версия)?

Има някои малки разлики при мултимедията, които могат да създадат проблеми в различните версии.

Моя съвет е да използваш TMediaPlayer, като зададеш False на свойството Visible и dtCDAudio на свойството DeviceType. От там на сетне използвай неговите методи за управление на CD-то (виж ги в хелпа - там са описани по-подробно). MediaPlayer-a включва всичко необходимо за управление и е един вид прост интерфейс м/у MCI и програмата на Delphi. Само дето е малко бъгав при работа с Wave аудио.

Успех!

Mixy

Аз използвам Delphi 5, но вече свичко върви без проблем. Само включих mmsystem.pas в използваните модули и вече програмата работи.
Благодаря.