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:

const
  MCI_SETAUDIO = $0873;
  MCI_DGV_SETAUDIO_VOLUME = $4002;
  MCI_DGV_SETAUDIO_ITEM = $00800000;
  MCI_DGV_SETAUDIO_VALUE = $01000000;
  MCI_DGV_STATUS_VOLUME = $4019;

type
  MCI_DGV_SETAUDIO_PARMS = record
    dwCallback: DWORD;
    dwItem: DWORD;
    dwValue: DWORD;
    dwOver: DWORD;
    lpstrAlgorithm: PChar;
    lpstrQuality: PChar;
  end;

type
  MCI_STATUS_PARMS = record
    dwCallback: DWORD;
    dwReturn: DWORD;
    dwItem: DWORD;
    dwTrack: DWORD;
  end;

procedure SetVolume(const volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
  // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  vol:= volL + volR shl 16;
  // set volume
  waveOutSetVolume(hWO, vol);
  waveOutClose(hWO);
end;

procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
  { Volume: 0 - 1000 }
var
  p: MCI_DGV_SETAUDIO_PARMS;
begin
  { Volume: 0 - 1000 }
  p.dwCallback := 0;
  p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
  p.dwValue := Volume;
  p.dwOver := 0;
  p.lpstrAlgorithm := nil;
  p.lpstrQuality := nil;
  mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;                    

1:

function GetChannelVolume(Channel: DWord; Value: integer): integer; override;                    

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

function TVis78Mixer.GetDevice(DeviceId: integer): string;
var
  _PropertyStore: IPropertyStore;
  _var: TPropVariant;

begin
  Result:= '';
  HRES:= DefaultDevice.OpenPropertyStore(STGM_READ, _PropertyStore);
  if SUCCEEDED(HRES) then
    begin
      // Get the DirectSound or DirectSoundCapture device GUID
      // (in WCHAR string format) for the endpoint device.
      HRES:= _PropertyStore.GetValue(PKEY_Device_FriendlyName, _var);
      if Failed(HRES) then
        Raise Exception.Create('GetDevice failed')
      else
        Result:= '';
    end;
end;                    

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

FBM.MasterVolume := Round( 53 *(65535/100) ); //setzt das Systemvolumen auf 53 %, klappt super (FBM ist mein TBasicMixer, der mit TWinVis78Mixer.create erstellt wurde)
FBM.SetChannelVolume(   1 ,    Round(49 *(65535/100))); //klappt nur teilweise !
// Teilweise ist der Channel 0 "Lautsprecher" teilweise aber auch Channel 1.. entweder ist es das was im quelltext steht, oder es wird eine Exception ausgeworfen.
// Es ist wirklich mal das, mal das.. 10x klappt es mit 0 , dann plötzlich fehlermeldung,, dann klappt es 5x mit channel 1 wieder fehlermeldung und "lautsprecher" liegen //wieder auf channel 0....

// Andere Channel außer dem "Lautsprecher" existieren scheinbar nicht. Abgesehen von Channel 0 bzw. 1 (GEsamtlautstärke) funktioniert kein anderer Channel....
//Soweit war ich auch mit anderen Quelltexten schon...                    

1:
2:
3:
4:
5:

//FBM := TVis78Mixer.create;
FBM := CreateVis78Mixer;
//FBM.MasterVolume := Round( 53 *(65535/100) );
FBM.SetChannelVolume(   1 ,    Round(49 *(65535/100)));
FBM.Free;                    

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

uses
  MMDeviceApi, ActiveX, AudioPolicy;

var
  DeviceEnumerator: IMMDeviceEnumerator;
  DefaultDevice: IMMDevice;
  SessionManager: IAudioSessionManager;
  SessionControl: IAudioSessionControl;
begin
  if Succeeded(CoCreateInstance(CLSID_MMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, DeviceEnumerator))
    and Succeeded(DeviceEnumerator.GetDefaultAudioEndpoint(eRender, eMultimedia, DefaultDevice))
    and Succeeded(DefaultDevice.Activate(IID_IAudioSessionManager, CLSCTX_INPROC_SERVER, nil, IUnknown(SessionManager)))
    and Succeeded(SessionManager.GetAudioSessionControl(nil, 0, SessionControl)) then
    SessionControl.SetDisplayName('Mein Programm', nil);                    

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

uses 
  ShellAPI;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Win32MajorVersion > 5 then
      ShellExecute(0,nil,PChar('sndvol.exe'),'-d0 -r','',SW_SHOWNORMAL )
   else
      ShellExecute(0,nil,PChar('sndvol32.exe'),'','',SW_SHOWNORMAL );
end;                    

1:
2:
3:
4:
5:

if Succeeded(CoCreateInstance(CLSID_MMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, DeviceEnumerator))
    and Succeeded(DeviceEnumerator.GetDefaultAudioEndpoint(eRender, eMultimedia, DefaultDevice))
    and Succeeded(DefaultDevice.Activate(IID_IAudioSessionManager, CLSCTX_INPROC_SERVER, nil, IUnknown(SessionManager))
    and Succeeded(SessionManager.GetAudioSessionControl(nil, 0, SessionControl)) then
    SessionControl.SetDisplayName('Mein Programm', nil);                    

1:

[Fehler] Unit1.pas(35): Operator ist auf diesen Operandentyp nicht anwendbar