Я вобще новичёк в програмировании . Я ещё только учусь. Вот решил написать свою програмку для воспроизведения mp3. Вроде написал, но я незнаю как зделать регулировку звука(прямо в этой программе а не где-то в другом месте). Подскажите пожалуйста код.

создаёте например (TrackBar)

uses MMSystem;

function GetVolume: 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 SetVolume(Value: 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, value);
end;

//Получить громкость
{var
vol:longint;
begin
vol:=GetVolume;
TrackBar1.Position:=(vol shr 16);}
//Установить громкость
{var
vol:longint;
begin
Vol:=(TrackBar1.Position shl 16)+TrackBar1.Position;
SetVolume(vol);}

Переделал эти функции под свои нужды.......


вот что получилось....:::

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MMSystem, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetVolume: 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 TForm1.FormCreate(Sender: TObject);
var
vol: longint;

 begin
vol:=GetVolume;
Label1.Caption:=IntToStr(vol shr 16);
end;

end.




unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, MMSystem;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  cap: TWaveInCaps;
begin
  for i := 0 to  waveInGetNumDevs  do
  begin
    waveInGetDevCaps(i, Addr(cap), SizeOf(cap));
    ListBox1.Items.Add(cap.szPname  )
  end;
  end;

  

procedure TForm1.Button1Click(Sender: TObject);
var
  vol : longint;

begin
  waveOutGetVolume( ListBox1.ItemIndex, @Vol);
   Label1.Caption:=IntToStr(vol shr 16);
end;

end.

И тот и тот работают только когда я залажу сюда:

Мастер проверки аудиоустройств=>Проверка динамиков

Больше ниначто не реагируют(нинакакие другие изменения)


Подскажите как сделать чтобы программа определяла уровень громкости сигнала, который подаётся на вход аудикарты

Не с аудио картой не ко мне!
А этот код я исползовал для своего проигрывателя(*.mp3,*.wav,*.mid,*.ogg).
Когда Winamp заглююююююююючил.