Lautstärkeregelung Windows Vista / 7

[Metschu]

Hallo zusammen!

Kennt Ihr ein Tool, wie z.B. der TAudioMixer, welches auch unter Windows Vista / 7 Funktioniert?

Ich möchte gerne die Lautstärken aller Kanäle für den Ein und Ausgang regeln können.

Mit dem TAudioMixer hats wunderbar unter Win XP geklappt.

Ab Vista sollen sich da ja einiges geändert haben, nur wurde die Komponente nicht mehr weiterentwickelt.

Gruß

Torsten

[schlagzu]

Also, hier mit sollte es funktionieren.
Code Beispiel folgt.

MfG schlagzu

[schlagzu]

Delphi-Quellcode:

//Global: 
var endpointVolume: IAudioEndpointVolume = nil;
//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;
//Auslesen:

function getvolume:Single;
begin
  endpointVolume.GetMasterVolumeLevelScaler(result);
end;

function getmute:boolean;
begin
  endpointVolume.GetMute(result);
end;

[EWeiss]

Oder teste das mal
taudiovolume

gruss

[schlagzu]

Verdammt^^ warum hab ich das damals nicht gefunden

[EWeiss]

Zitat von schlagzu:

Verdammt^^ warum hab ich das damals nicht gefunden

Vielleicht war es noch nicht Online?

gruss

[Metschu]

Top, vielen Dank!