Скачать: CL | DM;

регулировка звука   Найти похожие ветки 

← →
Змей ©   (2006-01-24 02:05) [0]

Доброго времени суток Мастера!
пользуюсь MediaPlayer"om
изменяю громкость звука в проге и в винде одновременно можно ли отдельно это делать?
Изменение громкости звуков в Windows

uses MMSystem;

function GetWaveVolume: DWord;
var Woc : TWaveOutCaps;
Volume : DWord;
begin
result:=0;
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin
WaveOutGetVolume(WAVE_MAPPER, @Volume);
Result := Volume;
end;
end;
end;

procedure SetWaveVolume(const AVolume: DWord);
var Woc : TWaveOutCaps;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Beep;
end;

procedure TForm1.Button2Click(Sender: TObject);
var LeftVolume: Word;
RightVolume: Word;
begin
LeftVolume := StrToInt(Edit1.Text);
RightVolume := StrToInt(Edit2.Text);
SetWaveVolume(MakeLong(LeftVolume, RightVolume));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Caption := IntToStr(GetWaveVolume);
end;

таким образом звук вырубается в винде. И нужно при нажатии клавиши ну к примеру “Тихо” вырубался звук, который проигрывается в tmediaplayer. И при нажатии еще раз звук обратно возвращался. Но при этом звук винды не изменялся. Потому как после закрытия приложения(например мы поставили на минимум), звук в винде тоже на минимуме.
Заранее Спасибо!!!

---

← →
Xandr   (2006-02-24 07:47) [1]

tmediaplayer.volume:=smth

---

← →
Belorus ©   (2006-02-24 08:16) [2]

Дааааа. Xandr- ты головой то думай. Или хотя бы проверяй что написал.

Не возможно в медиа плеере регулировать громкость. Юзай bass.

---

← →
Xandr   (2006-02-25 17:11) [3]

Прошу прощенья :)

просто я давно не этим  плеером пользуюсь...

сначала так:
Component -> Import ActiveX Control -> Windows Media Player (Version 1.0)

ну а потом первый пост....

по поводу Bass, имхо мпого парива...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c