как полность вырубить звук? как его вкл??

← →
Nhu (2002-12-24 22:14) [0]

Как можно программно вкл выкл звук , и как его вкл на полную катушку?
Если можно подробно...
Зарание благодарен!

← →
npAKTuk (2002-12-25 11:45) [1]

Только через WinAPI - обратись напрямую к устройствам звуковывода, лови их хэндлы и контролируй на здоровье.
сам я использую компонент Amixer, тк через API через чур замудренно.

если хочешь оставь мыло. найду компоненту - сброшу

← →
BOBAKO (2002-12-25 20:32) [2]

masya2001@rambler.ru буду рад получить!

← →
BOBAKO (2002-12-28 19:50) [3]

А что народ через АРИ не кто не знает а может кто нить напишет?
Или и впрямь сложно?

← →
Mihey (2002-12-28 20:21) [4]

А зачем API? Если ты не хочешь утяжелять программу компонентой, то найди плеер с регулировкой звука и разбери его.

← →
Mihey (2002-12-28 20:30) [5]

Ладно, сжалюсь! Вот пример: http://delphi.mastak.ru/download/214.zip

← →
Eugenex (2002-12-29 11:24) [6]

// выключить спикер
SyStemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_UPDATEINIFILE);
//включить
SyStemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_UPDATEINIFILE);

← →
BOBAKO (2002-12-29 15:39) [7]

Mihey
Обьясни как его установить этот компонет блин не могу помоги пожалусто!!!

← →
Mihey (2002-12-29 22:52) [8]

2 BOBAKO:

А в чём сложность? В Delphi 5 он устанавливается просто, ошибок не вызывает, регистрируется на вкладке Samples. Далее работать в соответствии с примером. Если не подходит этот, то на www.torry.ru в разделе VCL\Sound Effects есть куча аудиомикшеров.

← →
BOBAKO (2002-12-30 10:26) [9]

Я НЕ ЗНАЮ КАК ЕГО УСЧТАНОВИТЬ ПОМОГИ КАК ТЫ УСТАНАВЛИВАЕШЬ В ДЕЛПХИ 5 ОБЬЯСНИ...

← →
Song (2002-12-30 14:53) [10]

WaveOutSetVolume()

← →
MAloi (2002-12-30 15:22) [11]

Song
Не много разьясни...
А то ведь нелпа нет..

← →
Song (2002-12-30 18:27) [12]

The waveOutSetVolume function sets the volume level of the specified waveform-audio output device.

MMRESULT waveOutSetVolume(

HWAVEOUT hwo,
DWORD dwVolume
);

Parameters

hwo

Handle of an open waveform-audio output device. This parameter can also be a device identifier.

dwVolume

New volume setting. The low-order word contains the left-channel volume setting, and the high-order word contains the right-channel setting. A value of 0xFFFF represents full volume, and a value of 0x0000 is silence.
If a device does not support both left and right volume control, the low-order word of dwVolume specifies the volume level, and the high-order word is ignored.

Return Values

Returns MMSYSERR_NOERROR if successful or an error otherwise. Possible error values include the following:

MMSYSERR_INVALHANDLE Specified device handle is invalid.
MMSYSERR_NODRIVER No device driver is present.
MMSYSERR_NOMEM Unable to allocate or lock memory.
MMSYSERR_NOTSUPPORTED Function is not supported.

Remarks

If a device identifier is used, then the result of the waveOutSetVolume call applies to all instances of the device. If a device handle is used, then the result applies only to the instance of the device referenced by the device handle.
Not all devices support volume changes. To determine whether the device supports volume control, use the WAVECAPS_VOLUME flag to test the dwSupport member of the WAVEOUTCAPS structure (filled by the waveOutGetDevCaps function). To determine whether the device supports volume control on both the left and right channels, use the WAVECAPS_LRVOLUME flag.

Most devices do not support the full 16 bits of volume-level control and will not use the high-order bits of the requested volume setting. For example, for a device that supports 4 bits of volume control, requested volume level values of 0x4000, 0x4FFF, and 0x43BE all produce the same physical volume setting: 0x4000. The waveOutGetVolume function returns the full 16-bit setting set with waveOutSetVolume.
Volume settings are interpreted logarithmically. This means the perceived increase in volume is the same when increasing the volume level from 0x5000 to 0x6000 as it is from 0x4000 to 0x5000.

← →
Mihey (2002-12-30 22:54) [13]

2 Bobako:

Запускаешь Delphi, выбираешь Component -> Install Component. В окошке выбираешь Unit file name - модуль компонента, для нашего случая там есть всего один модуль .pas. Далее везде жмёшь Yes и Install. Все формы закроются, останется менеджер пакетов. Его когда закрываешь, то предложит сохранить пакет, что ты и сделай. Усё, компонент зарегистрирован или в своём отдельном разделе, или в разделе Samples.

Если будут проблемы - пиши.

как полность вырубить звук? как его вкл?? Найти похожие ветки