MMDevApi und Konsolenanwendung

[Bummi]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, ActiveX,
  MMDevApi in 'C:\Bummispicker\Snipplets\MMDevApi.pas';
var
  endpointVolume: IAudioEndpointVolume = nil;

procedure Init;
var
  deviceEnumerator: IMMDeviceEnumerator;
  defaultDevice: IMMDevice;
begin
  CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
  deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
  defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
end;

procedure SetVolume(vol:Double);
var
  VolumeLevel: Single;
begin
  if endpointVolume = nil then Exit;
  VolumeLevel := vol;
  endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
end;

begin
  try
   Coinitialize(nil);
   readln;
   init;
   readln;
   SetVolume(0.5);
   readln;
   Couninitialize;
    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.