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:

function GetMasterVolume(Mixer: hMixerObj): Word;
var
  MasterVolume    : TMixerControl;
  Details         : TMixerControlDetails;
  UnsignedDetails : TMixerControlDetailsUnsigned;
  Code            : MMResult;
begin
  Result := 0;

  Code := _VolumeControl(Mixer, MasterVolume);
  if Code = MMSYSERR_NOERROR then begin
    with Details do begin
      cbStruct := SizeOf(Details);
      dwControlID := MasterVolume.dwControlID;
      cChannels := 1;  // set all channels
      cMultipleItems := 0;
      cbDetails := SizeOf(UnsignedDetails);
      paDetails := @UnsignedDetails;
    end;
    Code := mixerGetControlDetails(Mixer,
                                   @Details,
                                   MIXER_GETCONTROLDETAILSF_VALUE);

    Result := UnsignedDetails.dwValue;
  end;
  if Code <> MMSYSERR_NOERROR then
    raise Exception.CreateFmt('GetMasterVolume failure, '+
                       'multimedia system error #%d', [Code]);
end;

procedure SetMasterVolume(Mixer: hMixerObj; Value: Word);
var
  MasterVolume    : TMixerControl;
  Details         : TMixerControlDetails;
  UnsignedDetails : TMixerControlDetailsUnsigned;
  Code            : MMResult;
begin
  Code := _VolumeControl(Mixer, MasterVolume);
  if Code = MMSYSERR_NOERROR then begin
    with Details do begin
      cbStruct := SizeOf(Details);
      dwControlID := MasterVolume.dwControlID;
      cChannels := 1;  // set all channels
      cMultipleItems := 0;
      cbDetails := SizeOf(UnsignedDetails);
      paDetails := @UnsignedDetails;
    end;
    UnsignedDetails.dwValue := Value;
    Code := mixerSetControlDetails(Mixer,
                                   @Details,
                                   MIXER_SETCONTROLDETAILSF_VALUE);
  end;
  if Code <> MMSYSERR_NOERROR then
    raise Exception.CreateFmt('SetMasterVolume failure, '+
                         'multimedia system error #%d', [Code]);
end;                    

1:

ShellExecute(Handle, nil, 'SNDVOL32.EXE', '/t', '', SW_SHOWNA);                    

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:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:

unit 'was auch immer . . .';

interface

uses
  . . . ActiveX, MMDeviceApi;

const 
  CLSID_TaskbarList: TGUID = '{56fdf344-fd6d-11d0-958a-006097c9a090}'; 
  IID_ITaskbarList:  TGUID = '{56FDF342-FD6D-11d0-958A-006097C9A090}'; 
  IID_ITaskbarList2: TGUID = '{602D4995-B13A-429b-A66E-1935E44F4317}'; 
  IID_ITaskbarList3: TGUID = '{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}';

type 
  TBPF =   (TBPF_NOPROGRESS = 0,
           TBPF_INDETERMINATE = 1,
           TBPF_NORMAL = 2,
           TBPF_ERROR = 4,
           TBPF_PAUSED = 8);
  TBATF =  (TBATF_USEMDITHUMBNAIL = 1,
           TBATF_USEMDILIVEPREVIEW = 2);

   ITaskbarList = interface(IUnknown)
      ['{56FDF342-FD6D-11d0-958A-006097C9A090}']
      function HrInit : HResult; stdcall;
      function AddTab(hWndOwner : HWND) : HResult; stdcall;
      function DeleteTab(hWndOwner : HWND) : HResult; stdcall;
      function ActivateTab(hWndOwner : HWND) : HResult; stdcall;
      function SetActiveAlt(hWndOwner : HWND) : HResult; stdcall;
   end; { ITaskbarList }

  ITaskbarList2 = interface(ITaskbarList)
    ['{602D4995-B13A-429b-A66E-1935E44F4317}']
    function MarkFullscreenWindow(wnd : HWND; fFullscreen : bool) : HResult; stdcall;
  end;

  ITaskbarList3 = interface (ITaskbarList2)
  ['{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}']
    function SetProgressValue (hWnd: HWND; ullCompleted: int64; ullTotal: int64): HResult; stdcall;
    function SetProgressState (hWnd: HWND; tbpFlags: TBPF): HResult; stdcall;
    function RegisterTab (hwndTab: HWND; hwndMDI: HWND): HResult; stdcall;
    function UnregisterTab (hwndTab: HWND): HResult; stdcall;
    function SetTabOrder (hwndTab: HWND; hwndInsertBefore: HWND): HResult; stdcall;
    function SetTabActive (hwndTab: HWND; hwndMDI: HWND; tbatFlags: TBATF): HResult; stdcall;
    function ThumbBarAddButtons (hWnd: HWND; cButtons: integer; pButtons: pointer): HResult; stdcall;
    function ThumbBarUpdateButtons (hWnd: HWND; cButtons: cardinal; pButtons: pointer): HResult; stdcall;
    function ThumbBarSetImageList (hWnd: HWND; himl: pointer): HResult; stdcall;
    function SetOverlayIcon (hWnd: HWND; hIcon: HICON; pszDescription: PWideChar): HResult; stdcall;
    function SetThumbnailTooltip (hWnd: HWND; pszTip: PWideChar): HResult; stdcall;
    function SetThumbnailClip (hWnd: HWND; prcClip: PRect): HResult; stdcall;
  end;

type
    TForm1 = class(TForm)


    procedure cbMasterMuteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);

    procedure SetMasterVolume;
    procedure SetChannelsVolume;
    procedure SetChannelsFlagVolume;

   private
    { Private-Deklarationen }
                FTaskBarList : ITaskbarList3;

  public
    { Public-Deklarationen }
  end;

type
 TepVolEvents = Procedure(f:byte) of object;


var
  Form1: TForm1;
  endpointVolume    : IAudioEndpointVolume = nil;
  deviceEnumerator  : IMMDeviceEnumerator;
  defaultDevice     : IMMDevice;
  pProps            : IPropertyStore;
  epVolEvents       : TepVolEvents;
  VolumeLevel       : Single;
  OldVolume         : Single;


implementation

{$R *.dfm}

var
  ChannelCnt               : Cardinal;
  ChannelLeft,ChannelRight : Single;
  VolMaster                : Single;
  VolMute                  : Bool;
  Percent                  : Integer;
  ChannelFlag              : Boolean;


procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  FTaskBarList := CreateComObject(CLSID_TaskbarList)  as  ITaskbarList3;
  ChannelFlag := False;

  CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
end;

procedure TForm1.cbMasterMuteClick(Sender: TObject);
begin

  if cbMasterMute.Checked then
    begin

      if endpointVolume = nil then Exit;
      VolumeLevel := 0;
      endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
      FTaskBarList.SetProgressState(Application.handle, TBPF_Indeterminate);
    end
      else
        begin
          if endpointVolume = nil then Exit;
          if not ChannelFlag then
            begin // not ChannelFlag
              VolumeLevel := OldVolume;
              endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
            end
              else  // ChannelFlag
                begin
                  SetChannelsFlagVolume;
                end;

        end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  if deviceEnumerator = nil then begin ShowMessage('NIL'); Exit; end;
  deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
  if defaultDevice <> nil then defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
  endpointVolume.GetChannelCount(ChannelCnt);
  endpointVolume.GetMasterVolumeLevelScalar(VolMaster);
  VolumeLevel := VolMaster;
  endpointVolume.GetChannelVolumeLevelScalar(0,ChannelLeft);
  endpointVolume.GetChannelVolumeLevelScalar(1,ChannelRight);
  vLeft  := ChannelLeft;
  vRight := ChannelRight;
  endpointVolume.GetMute(VolMute);
  if VolMute=True then cbMasterMute.Checked := True else cbMasterMute.Checked := False;
  lbMaster.Caption := Format('%1.3f', [VolMaster]);

  Percent := Round(VolumeLevel * 100);
  // FTaskBarList.SetProgressState(Application.handle, TBPF_Normal);
  case Round(VolumeLevel * 1000) of
   0 .. 749    : FTaskBarList.SetProgressState(Application.handle, TBPF_Normal);
   750 .. 1001 : FTaskBarList.SetProgressState(Application.handle, TBPF_Error);
  end; // end case of
  FTaskBarList.SetProgressValue(Application.handle, Percent, 100);
end;


procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if reg1 then
    begin
      if imgRegler1.Top > 20 then imgRegler1.Top := imgRegler1.Top - wheel;
      VolumeLevel := ( (200 - (imgRegler1.Top - 20)) / 200);
      SetMasterVolume;
    end;
  if reg2 or reg3 then
    begin
      if reg2 then
        if imgLeft.Top > 20 then imgLeft.Top := imgLeft.Top - wheel;
      if reg3 then
        if imgRight.Top > 20 then imgRight.Top := imgRight.Top - wheel;

      vLeft    := ( (200 - (imgLeft.Top - 20)) / 200);
      vRight   := ( (200 - (imgRight.Top - 20)) / 200);
      SetChannelsVolume;
    end;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if reg1 then
    begin
      if imgRegler1.Top < 220 then imgRegler1.Top := imgRegler1.Top + wheel;
      VolumeLevel := ( (200 - (imgRegler1.Top - 20)) / 200);
      SetMasterVolume;
    end;
  if reg2 or reg3 then
    begin
      if reg2 then
        if imgLeft.Top < 220 then imgLeft.Top := imgLeft.Top + wheel;
      if reg3 then
        if imgRight.Top < 220 then imgRight.Top := imgRight.Top + wheel;

      vLeft  := ( (200 - (imgLeft.Top - 20)) / 200);
      vRight := ( (200 - (imgRight.Top - 20)) / 200);
      SetChannelsVolume;
    end;
end;

procedure TForm1.SetMasterVolume;
begin
  if endpointVolume = nil then Exit;
  cbMasterMute.Checked := False;
  OldVolume   := VolumeLevel;
  OldLeft  := vLeft;
  OldRight := vRight;
  endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
  lbMaster.Caption := Format('%1.3f', [VolumeLevel]);

end;

procedure TForm1.SetChannelsVolume;
begin
  if endpointVolume = nil
    then Exit;

  endpointVolume.SetChannelVolumeLevelScalar(0, vLeft, nil);
  endpointVolume.SetChannelVolumeLevelScalar(1, vRight, nil);
  lbLeft.Caption  := Format('%1.3f', [vLeft * 1]);
  lbRight.Caption := Format('%1.3f', [vRight * 1]);
  SetMasterVolume;
end;

procedure TForm1.SetChannelsFlagVolume;
begin
  if endpointVolume = nil
    then Exit;

  endpointVolume.SetChannelVolumeLevelScalar(0, OldLeft, nil);
  endpointVolume.SetChannelVolumeLevelScalar(1, OldRight, nil);
  lbLeft.Caption  := Format('%1.3f', [OldLeft * 1]);
  lbRight.Caption := Format('%1.3f', [OldRight * 1]);
  //SetMasterVolume;
end;                    

1:
2:
3:
4:
5:

var
  ch: HCHANNEL; ch := BASS_SampleGetChannel(0, False);
begin
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_PAN, 0);  //welcher Wert, 0, 1, oder egal?
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_VOL, 100);  //welcher Wert?                    

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.                    

1:
2:

//pchar(der name den du verwendest oder wenn du mit zahlen aggierst die zahl,wie ich mit der 1
PlaySound(PChar(1),hInstance, snd_ASync or snd_Memory or snd_Resource);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

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.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:

procedure TForm1.PlaySound(iResID: Integer);
begin
  resourceID := iResID;  //Ich kann resourceID auch ganz weglassen und nur mit iResID arbeiten!

  mySong:= TResourceStream.CreateFromID(hInstance, ResourceID, 'SOUND');
  GetMem(myMem, mySong.Size);
  mysong.Read(myMem^, mySong.Size);

  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:

//nimm Arrays, bisx ist die Anzahl Sounds die Du drin hast!
Private
     mySong: Array[1..bisx] of TResourceStream;
     pChan: Array[1..bisx] of HStream;
     myVolume: Array[1..bix] of float;
     myMem: Array[1..bisx] of pointer //<----??????
//usw dann

//im Createteil<--------- nur hier laden der sounds nicht in deiner playroutine
For i:= 1 to bisx do
begin
    mySong[i]:= TResourceStream.CreateFromID(hInstance, i, 'SOUND');
    GetMem(myMem[i], mySong[i].Size);
    mySong[i].Read(myMem[i]^, mySong[i].Size);
end;

myVolume[1]:= 0.2;//<-- einzelen sounds die Lautstärke fix zuordnen
myVolume[2]:= 0.7;
....
...
//usw

//eine PlayProcedure mit Parameter, hier könntest Du auch die Lautstärke individuell noch bestimmen
//wenn du es willst
procedure Mplay(playid: integer); // oder   Mplay(playid: integer; volume: float)
var
  setvolume: float;
begin
    if volume <>  myVolume[playid] then              //<-- nur wenn Du willst
       setvolume:= volume                            //ansonnsten  myVolume[playid] unten rein
    else
       setvolume:= myVolume[playid];
    
    pChan[playid]:= BASS_StreamCreateFile(True, myMem[playid] , 0, mySong[playid].Size, BASS_STREAM_AUTOFREE);
    BASS_ChannelSetAttribute(pChan[playid], BASS_ATTRIB_VOL, setvolume);//<<--hier
    BASS_ChannelPlay(pChan[playid], 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:

private
    myPan Array[1..bisx] of float;//<-- nur wenn Du willst, standard ist 0


// im create alle werte auf 0 setzen oder so wie Du es willst


//eine PlayProcedure mit Parameter
Mplay(playid: integer; volume, pan: float);//<-- pan ist -1 gegner schießt von links ;)
var
  ......
  setpan: float;
begin
    .....
    .....
    .....
    if pan <> myPan[playid] then
       setpan:= pan
    else
       setpan:= myPan[playid];
     
   .....
   .....
   BASS_ChannelSetAttribute(pChan[playid], BASS_ATTRIB_VOL, setvolume);
   BASS_ChannelSetAttribute(pChan[playid], BASS_ATTRIB_PAN, setpan);//setpan von -1(links) 0(mitte) bis +1(rechts)
   BASS_ChannelPlay(pChan[playid], False);
end;                    

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

var 
sh:HStream;
sd:TResourceStream;

  sd:=TResourceStream.Create(HInstance,'sound','mp3');
  sr:=BASS_StreamCreateFile(True,sd.Memory,0, sd.Size,BASS_STREAM_AUTOFREE);