как сделать в программе регулировку звука

[}{@KeRnutyi]

как с помощью trackbar сделать регулировку звука в программе
проигрывающей звук

[Alar]

сторонняя программа? какой компонент?

[}{@KeRnutyi]

я знаю что можно через wavOutvolume но у меня на максимуме trackbar'a
звук выключается вообще вот код :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, MPlayer, StdCtrls, Gauges, XPMan,MMSYSTEM,
Menus,ExtCtrls, Buttons;

type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Label1: TLabel;
Button2: TButton;
Gauge1: TGauge;
OpenDialog1: TOpenDialog;
TrackBar1: TTrackBar;
Label4: TLabel;
XPManifest1: TXPManifest;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Timer1: TTimer;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Panel1: TPanel;
Panel2: TPanel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
volume:longword;
implementation
uses Unit2, Unit3;

{$R *.dfm}

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

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.execute then
mediaplayer1.filename:=opendialog1. filename ;
mediaplayer1.Open;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
volume:longword;
begin
label1.Caption:='00:00';
TrackBar1.Position :=1;
volume := (TrackBar1.max-TrackBar1.Position)*65535;
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume ) ;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if speedbutton1.Down then
begin
speedbutton1.allowallup:=true;
form2.Show;
end
else begin
speedbutton1.AllowAllUp:=false;
form2.Close;
end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if speedbutton2.Down then
begin
speedbutton2.allowallup:=true;
form3.Show;
end
else begin
speedbutton2.AllowAllUp:=false;
form3.Close;
end;
end;



procedure TForm1.TrackBar1Change(Sender: TObject);
begin
volume:=(TrackBar1.Position-TrackBar1.Max)*6500;
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume );
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
panel2.Caption:='Дата: '+datetostr(now);
panel1.Caption:='Время: '+timetostr(now);
with MediaPlayer1 do
if FileName<>'' then
Gauge1.Progress:=Round(100*Position/Length);

end;

end.

[}{@KeRnutyi]

а зачем там умножение на 6500

[}{@KeRnutyi]

а какой вообще алгоритм регулировки звука в проге

[Virtson]

volume:=(TrackBar1.Position-TrackBar1.Max)*6500;

что-то тут не то

[rpy3uH]

вот так попробуй
вообще то для регулировки звука есть специальные компоненты которые регулируют звук

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  volume:DWORD;
begin
  volume := 65000*Round((TrackBar1.Position-TrackBar1.Min)/(TrackBar1.Max-TrackBar1.Min));
  volume := volume +   (volume shl 16);
  waveOutSetVolume(WAVE_MAPPER,volume);
end;