1:

waveOutSetVolume(0, MakeLong(iVolume, iVolume));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
 chan1:  HSTREAM;//<----- diese Variable ist wichtig, sonnst geht es auch nicht mit bass.dll
 song: String;
....
....

song:= 'Deine SoundDatei';
chan1 := BASS_StreamCreateFile(False, pchar(song),0, 0,
            BASS_MUSIC_STOPBACK {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

Bass_ChannelPLay(chan1, false):
BASS_ChannelSetAttribute(chan1, BASS_ATTRIB_VOL, 1);//<-- je nach auflösung 0, 0.01, 0.02 bis 1					

1:
2:
3:
4:
5:
6:

chan1 := BASS_StreamCreateFile(False, pchar(song1),0, 0,
            BASS_MUSIC_STOPBACK {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
chan2 := BASS_StreamCreateFile(False, pchar(song2),0, 0,
            BASS_MUSIC_STOPBACK {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
chan3 := BASS_StreamCreateFile(False, pchar(song3),0, 0,
            BASS_MUSIC_STOPBACK {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});					

1:
2:

 if not BASS_Init(1, 44100, 0, Handle, nil) then
      Error('Error initializing audio!');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

{je nach dem wieviel sounds Du einbindest, solltest Du diese evtl gleich mit ein TypArray umsetzten} 
  {TMySong = Array[1..bisx] of TResourceStream}
  {TMyMem = Array[1..bisx] of Pointer}
  {TMyPlay = Array[1..bisx] of HSTREAM}
  {TResourceId = Array[1..bisx] of Cardinal}
  {TMyVolume = Array[1..bisx] of float}
{vorteil ist klar, Du brauchst dann nur noch mit den index der Arrays arbeiten}
{vielleicht gibt es noch ne effizientere methode????}

{ab hier gilt es für einen song}
private
  mySong: TResourceStream;
  myMem: Pointer;
  myPlay: HSTREAM;
  myVolume: float;
  resourceID: Cardinal;

....
....
....

procedure TForm1.FormCreate(Sender: TObject);
begin
  resourceID:= 1;
  {leider kann man mit hinstance, bzw mySong nicht direct mit Bass arbeiten,}
  {wie es das mmsystem kann}
  {darum der Umweg über Speicherreservierung und das laden der Daten in den Speicher}
  mySong:= TResourceStream.CreateFromID(hInstance, ResourceID, 'SOUND');
  GetMem(myMem, mySong.Size);
  mysong.Read(myMem^, mySong.Size);

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   {nicht vergessen alles zum schluss frei zugeben}
   Bass_Stop;
   Bass_Free;
   FreeMem(myMem);
   mySong.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    {dies währe mit dem mmsystem, aber da kannst Du nur volume Global regeln}
    //PlaySound(PChar(1),HInstance, snd_ASync or snd_Memory or snd_Resource);
    
    myVolume:= 0.2;//<-- von 0 bis 1
    myPlay:= BASS_StreamCreateFile(True, myMem , 0, mySong.Size, BASS_STREAM_AUTOFREE);
    BASS_ChannelSetAttribute(myPlay, BASS_ATTRIB_VOL, myVolume);
    BASS_ChannelPlay(myPlay, False)
end;
....
....
....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Dynamic_Bass24, SoundFX, XPMan, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    TrackBar3: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ButtonsClick(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
  private
    { Private-Deklarationen }
    SndFX: TSndFX;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // yes, sounds...
  SndFX := TSndFX.Create;
  try
    SndFX.SetChannels(4);
    SndFX.LoadSndFromResource(hInstance, MAKEINTRESOURCE(1), RT_RCWAVE, 0);
    SndFX.LoadSndFromResource(hInstance, MAKEINTRESOURCE(2), RT_RCWAVE, 1);
    SndFX.LoadSndFromResource(hInstance, MAKEINTRESOURCE(3), RT_RCWAVE, 2);
    SndFX.LoadSndFromResource(hInstance, MAKEINTRESOURCE(1), RT_RCDATA, 3);

    SndFX.LoadSndFromFile(PCHAR(ExtractFilePath(ParamStr(0))+'\music.ogg'), 4, BASS_SAMPLE_LOOP);
    SndFX.SetChannelVol(4, 25);
    SndFX.PlayChannel(4);

    TrackBar1.Position := 25;
  except
    on Exception do Exception.CreateFmt('Zonk! %s', ['Fehler bei SndFX.Create']);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if ASSIGNED(SndFX) then SndFX.Free;
end;

procedure TForm1.ButtonsClick(Sender: TObject);
begin
  if ASSIGNED(SndFX) then
    case (Sender as TButton).Tag of
      10: SndFX.PlayChannel(0);
      20: SndFX.PlayChannel(1);
      30: SndFX.PlayChannel(2);
      40: SndFX.PlayChannel(3);
    end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  SndFX.SetChannelVol(4, TrackBar1.Position);
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  if ASSIGNED(SndFX) then
    SndFX.SetChannelVol(2, TrackBar2.Position);
end;

procedure TForm1.TrackBar3Change(Sender: TObject);
begin
  if ASSIGNED(SndFX) then
    SndFX.SetGlobalVol(TrackBar3.Max - TrackBar3.Position);
end;

end.