Delphi application sound volume control

Question

I'm not even sure if this fits into one question, but this is the only problem. I have an internet radio written in Delphi XE using the library

I understand that for Vista and above I need ISimpleAudioVolume and / or IAudioEndpointVolume, but I can not find the Delphi implementation. So, one part of the question: does it exist as a third-party library?

The second part is how to properly control the volume and mute the sound (system-wide or for each application) on XP, where these interfaces are not available?

Answer 1

Use this simple code to disable the main volume that it runs on my machine:

procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin for i:=0 to 100 do begin keybd_event($AE, MapVirtualKey($AE,0), 0, 0); keybd_event($AE, MapVirtualKey($AE,0), KEYEVENTF_KEYUP, 0); end; end;