Громкость в медиаплеере с помощью програссбара

[Xcopy]

Как контролировать громкость в медиаплеере с помощью прогрессбара?

[Terran]

Можете попробовать так:

Uses
   MMSystem;
Var
T: Boolean;
V: DWord;
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.FormCreate(Sender: TObject);
Begin
V:=GetWaveVolume;
ProgressBar1.Max:=V Div 1000;
End;
Procedure TForm1.ProgressBar1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
Begin
If T=True Then
ProgressBar1.Position:=X ;
SetWaveVolume(ProgressBar1.Position*1000);
End;
Procedure TForm1.ProgressBar1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
T:=True;
End;
Procedure TForm1.ProgressBar1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Begin
T:=False;
End;

[Xcopy]

Или я ненашел, или еще че... Там про громкость нету! А перематывать мне ненадо =(

[Terran]

Извиняюсь, я только сейчас заметил, что ссылку перепутал… Я выше написал небольшой код вместо ссылки.

[Xcopy]

спасибо, буду разбираться

[Ntlegend]

единственный вариант - изменять системную грмкость.. это можна делать и таким образом как показал Terran.. но у этого метода есть значительный минус.. остальные приложения регулирующие громкость не замечають что ктото в системе поменял громкость.. и также твоё приложение не заметит как ктото изменит громкось в системе.. шо может привести к нежелаемой максимальной громкости в 12 ночи )..

предлагаю посмотреть и разобраться в прикреплённом варианте..