озвучка

← →
sammy (2002-04-01 08:11) [0]

Есть ли возможность регулировать через
дельфи громкость звука?
Подкиньте пожалуста функцию.

← →
olookin (2002-04-02 16:06) [1]

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

procedure TForm1.TrackBar1Change(Sender: TObject);
var s: dword;
a,b: word;
h: hWnd;
begin
a:=trackbar1.position;
b:=trackbar2.position;
s:=(a shl 16) or b;
waveOutSetVolume(h,s);
end;

← →
Walker (2002-04-05 03:33) [2]

добавлю: свойство Max в каждом TrackBar"e должно равняться 65535 (то есть MaxWord)

← →
Фредди (2002-04-05 08:36) [3]

А как сбацать эквалайзер? Его через MCI реально сделать?

← →
pasha676 (2002-04-05 10:21) [4]

Фредди - эквалайзер можно сделать через преобразование Фурье. В MCI насколько мне известно таких фенек никогда не было.

озвучка Найти похожие ветки