Советы по Delphi. Версия 1.4.3 от 1.1.2001

 mxcd.cbStruct = sizeof(mxcd);
 mxcd.dwControlID = MasterVolumeControlID;
 mxcd.cChannels = 1;
 mxcd.cMultipleItems = 0;
 mxcd.cbDetails = 4;
 mxcd.paDetails = &mxcd_u;
 mmr = mixerGetControlDetails((HMIXEROBJ)ghmx, &mxcd, 0L);
 if (MMSYSERR_NOERROR != mmr) return FALSE;
 mxcd_u.dwValue = dwVolume;
 mmr = mixerSetControlDetails((HMIXEROBJ)ghmx, &mxcd, 0L);
 if (MMSYSERR_NOERROR != mmr) return FALSE;
 return TRUE;
}

Переписывать на Delphi, думаю, ни к чему. Надо лишь не забыть добавить uses MMSystem; Громкость отдельных каналов очень просто устанавливается через auxSetVolume и аналогичные.

Как использовать в своей программе API DirectSound и DirectSound3D?

Nomadic советует:

Пример 1

Представляю вашему вниманию рабочий пример использования DirectSound на Delphi + несколько полезных процедур. В этом примере создается один первичный SoundBuffer и 2 статических, вторичных; в них загружаются 2 WAV файла. Первичный буфер создается процедурой AppCreateWritePrimaryBuffer, а любой вторичный - AppCreateWritePrimaryBuffer. Так как вторичный буфер связан с WAV файлом, то при создании буфера нужно определить его параметры в соответствии со звуковым файлом, эти характеристики (Samples, Bits, IsStereo) задаются в виде параметров процедуры. Time — время WAV'файла в секундах (округление в сторону увеличения). При нажатии на кнопку происходит микширование из вторичных буферов в первичный. AppWriteDataToBuffer позволяет записать в буфер PCM сигнал. Процедура CopyWAVToBuffer открывает WAV файл, отделяет заголовок, читает чанк 'data' и копирует его в буфер (при этом сначала считывается размер данных, так как в некоторых WAV файлах существует текстовый довесок, и если его не убрать, в динамиках возможен треск).

PS. Если есть какие-нибудь вопросы, постараюсь на них ответить.

unit Unit1;

interface

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

type TForm1 = class(TForm)
 Button1: TButton;
 Timer1: TTimer;
 procedure FormCreate(Sender: TObject);
 procedure FormDestroy(Sender: TObject);
 procedure Button1Click(Sender: TObject);
private
 DirectSound: IDirectSound;
 DirectSoundBuffer: IDirectSoundBuffer;
 SecondarySoundBuffer: array[0..1] of IDirectSoundBuffer;
 procedure AppCreateWritePrimaryBuffer;
 procedure AppCreateWriteSecondaryBuffer(var Buffer: IDirectSoundBuffer; SamplesPerSec: Integer; Bits: Word; isStereo: Boolean; Time: Integer);
 procedure AppWriteDataToBuffer(Buffer: IDirectSoundBuffer; OffSet: DWord; var SoundData; SoundBytes: DWord);
 procedure CopyWAVToBuffer(Name: PChar;
 var Buffer: IDirectSoundBuffer);
 { Private declarations }
public
 { Public declarations }
end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
 if DirectSoundCreate(nil, DirectSound, nil) <> DS_OK then Raise Exception.Create('Failed to create IDirectSound object');
 AppCreateWritePrimaryBuffer;
 AppCreateWriteSecondaryBuffer(SecondarySoundBuffer[0], 22050, 8,False, 10);
 AppCreateWriteSecondaryBuffer(SecondarySoundBuffer[1], 22050, 16, True, 1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
var i: ShortInt;
begin
 if Assigned(DirectSoundBuffer) then DirectSoundBuffer.Release;
 for i:=0 to 1 do if Assigned(SecondarySoundBuffer[i]) then SecondarySoundBuffer[i].Release;
 if Assigned(DirectSound) then DirectSound.Release;
end;

procedure TForm1.AppWriteDataToBuffer;
var
 AudioPtr1, AudioPtr2: Pointer;
 AudioBytes1, AudioBytes2: DWord;
 h: HResult;
 Temp: Pointer;
begin
 H:=Buffer.Lock(OffSet, SoundBytes, AudioPtr1, AudioBytes1, AudioPtr2, AudioBytes2, 0);
 if H = DSERR_BUFFERLOST then begin
 Buffer.Restore;
 if Buffer.Lock(OffSet, SoundBytes, AudioPtr1, AudioBytes1, AudioPtr2, AudioBytes2, 0) <> DS_OK then Raise Exception.Create('Unable to Lock Sound Buffer');
 end
 else if H <> DS_OK then Raise Exception.Create('Unable to Lock Sound Buffer');
 Temp:=@SoundData;
 Move(Temp^, AudioPtr1^, AudioBytes1);
 if AudioPtr2 <> nil then begin
 Temp:=@SoundData;
 Inc(Integer(Temp), AudioBytes1);
 Move(Temp^, AudioPtr2^, AudioBytes2);
 end;
 if Buffer.UnLock(AudioPtr1, AudioBytes1, AudioPtr2, AudioBytes2) <> DS_OK then Raise Exception.Create('Unable to UnLock Sound Buffer');