Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.07;
Скачать: CL | DM;

Вниз

Громкость звука   Найти похожие ветки 

 
YY   (2002-01-02 15:03) [0]

Не подскажет ли кто-нибудь как можно программно изменять уровень громкости звука в Windows?


 
Vovchik   (2002-01-02 16:43) [1]

Есть ф-ции, начинающиеся с "mci". Ещё могу предложить посмотреть исходники TMediaPlayer.


 
TonnyS ©   (2002-01-03 15:46) [2]

насчёт WIN2K и NT не знаю, а в вин98 с помощью миксера. Смотри хелп по mixerOpen и так далее. Общая идеология:

1. Открыть миксер mixerOpen
2. Получить параметры нужной линии mixerGetLineInfo
3. Получить список контролов линии mixerGetLineControls

4. Получить параметры контрола mixerGetControlDetails
5. Установить параметры контрола mixerGetControlDetails

6. Закрыть миксер MixerClose

вобщем всё, если надо детальнее - то завтра, исходники дома забыл (как раз на выходных это делал)


 
TonnyS ©   (2002-01-03 16:16) [3]

сорри, п.5 - mixer SetControlDetails
функции описаны в хелпе Дельфи, правда в сишном варианте



 
SergVlad ©   (2002-01-03 23:23) [4]

Вот оно как

uses MMSystem;
..
var WOut : TWaveOutCaps;
LVol,RVol: word;
Vol: dword;
..

Vol := MakeLong(LVol, RVol);
if WaveOutGetDevCaps(WAVE_MAPPER, @WOut, sizeof(WOut)) =
MMSYSERR_NOERROR then begin
if WOut.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, Vol);
end;


 
Dimaond Cat ©   (2002-01-05 03:49) [5]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
TrackBar1: TTrackBar;
TrackBar2: TTrackBar;
Label1: TLabel;
Label2: TLabel;
TrackBar3: TTrackBar;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure TrackBar1Change(Sender: TObject);
procedure TrackBar3Change(Sender: TObject);
procedure TrackBar2Change(Sender: TObject);
procedure TrackBar3Exit(Sender: TObject);
procedure TrackBar1Exit(Sender: TObject);
procedure TrackBar2Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
uses mmsystem;

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

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

procedure TForm1.TrackBar1Change(Sender: TObject);
var
LeftVolume: Word;
RightVolume: Word;
begin
Label3.Caption:=IntTostr(TrackBar1.Position);
if TrackBar1.Position>TrackBar2.position then TrackBar3.Position:=TrackBar1.position;
LeftVolume :=TrackBar1.Position*655;
RightVolume := TrackBar2.Position*655;
SetWaveVolume(MakeLong(LeftVolume, RightVolume));
beep;
end;

procedure TForm1.TrackBar3Change(Sender: TObject);
var
LeftVolume: Word;
RightVolume: Word;
begin
TrackBar1.Position:=TrackBar3.position;
TrackBar2.Position:=TrackBar3.position;
Label3.Caption:=IntTostr(TrackBar1.Position);
Label4.Caption:=IntTostr(TrackBar2.Position);
LeftVolume :=TrackBar1.Position*655;
RightVolume := TrackBar2.Position*655;
SetWaveVolume(MakeLong(LeftVolume, RightVolume));
beep;
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
var
LeftVolume: Word;
RightVolume: Word;
begin
Label4.Caption:=IntTostr(TrackBar2.Position);
if TrackBar2.Position>TrackBar1.position then TrackBar3.Position:=TrackBar2.position;
LeftVolume :=TrackBar1.Position*655;
RightVolume := TrackBar2.Position*655;
SetWaveVolume(MakeLong(LeftVolume, RightVolume));
beep
end;

procedure TForm1.TrackBar3Exit(Sender: TObject);
begin
beep
end;

procedure TForm1.TrackBar1Exit(Sender: TObject);
begin
beep
end;

procedure TForm1.TrackBar2Exit(Sender: TObject);
begin
beep;
end;

end.


 
Dimaond Cat ©   (2002-01-06 16:49) [6]

Да , забыл у всех TrackBar параметр MAX надо установить в 100


 
Wizard_Ex ©   (2002-01-07 11:37) [7]

Лови на мыло
компонент Mixer/



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

Текущий архив: 2002.03.07;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
14-19350
Blackweber
2002-01-20 14:52
2002.03.07
Я нашел Д.Кнута в эл. варианте. Только не знаю как прочитать ТеХ формат в котором они сделаны. Подскажите если кто сталкивался!


6-19272
ilg
2001-12-20 12:00
2002.03.07
Windows socket error: (10049), on API connect - что это значит!!!


14-19345
fliz
2002-01-24 12:15
2002.03.07
кто что о ТВ6 думает?


1-19118
Л.Ге
2002-02-18 05:48
2002.03.07
UniCode в Delphi (гречка, в частности)


3-19095
jack200180
2002-02-08 16:49
2002.03.07
РБД и ....