Громкость звука всей системы

[NetSpace]

Народ, выручайте советом!
Надо сделать программу, чтоб громкость всей системы ставить на максимум.
Проект приложен.
-----------------
по совету одного человека с форума, действую по предложенному им алгоритму:
- Создаём IMMDeviceEnumerator (CoCreateInstance).
- У него вызываем метод GetDefaultAudioEndpoint для получения устройства по умолчанию (динамики).
- У него вызываем метод Activate для получения менеджера сессий.
- У менеджера сессий вызываем GetSessionEnumerator для получения энумератора.
- Вызываем энумератор для перечисления сессий.
- Имя сессии можно узнать GetDisplayName, иконку - через GetIconPath, а её GUID - через GetGroupingParam.
- Получаем регулятор громкости сессии вызовом метода GetSimpleAudioVolume у менеджера сессий, передав ему GUID сессии с предыдущего пункта (не уверен, но можно попробовать запросить регулятор у сессии напрямую через QueryInterface).
- Контролируем громкость каждой сессии.
на 4-м шаге застопорился - вылетает ошибка. Даже не знаю, как её обойти или интерпретировать.

[NetSpace]

Админ, тему можно закрывать.
разобрался. по кусочкам, по крупицам на просторах Инета нашёл что надо и слепил работающий код.

unit Unit1;
interface
uses Windows,Classes,Controls,Forms,ComCtrls,ActiveX,StdCtrls,MMDeviceAPI,MMSystem;
type TForm1=class(TForm)
     TrackBar1:TTrackBar;
     CheckBox1:TCheckBox;
     Button1:TButton;
     procedure TrackBar1Change(Sender:TObject);
     procedure FormCreate(Sender:TObject);
     procedure CheckBox1Click(Sender:TObject);
     procedure Button1Click(Sender:TObject);
     private
     FMMDev:IMMDevice;
     FMMDevEnum:IMMDeviceEnumerator;
     FEndpoint:IAudioEndpointVolume;
     FVolumeUpdating:Boolean;
     procedure InitMasterVolume;
     procedure UpdateMasterVolume;
     {Private declarations}
     public
     property VolumeUpdating:Boolean read FVolumeUpdating write FVolumeUpdating;
     end;
     TMyEndpointVolumeCallback=class(TInterfacedObject,IAudioEndpointVolumeCallback)
     public
     function OnNotify(pNotify:PAUDIO_VOLUME_NOTIFICATION_DATA):HRESULT;stdcall;
    {Public declarations}
end;

var Form1:TForm1;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender:TObject);
begin
   InitMasterVolume;
end;

procedure TForm1.InitMasterVolume;
var PropVar:^tag_inner_PROPVARIANT;
    MyEndpointVolumeCallback:IAudioEndpointVolumeCallback;
begin
   PropVar:=nil;
   CoCreateInstance(CLASS_MMDeviceEnumerator,nil,CLSCTX_ALL,IID_IMMDeviceEnumerator,FMMDevEnum);
   FMMDevEnum.GetDefaultAudioEndpoint(eRender,eMultimedia,FMMDev);
   FMMDev.Activate(IID_IAudioEndpointVolume,CLSCTX_ALL,PropVar^,Pointer(FEndPoint));
   MyEndpointVolumeCallback:=TMyEndpointVolumeCallback.Create;
   FEndPoint.RegisterControlChangeNotify(MyEndpointVolumeCallback);
   UpdateMasterVolume;
end;

procedure TForm1.TrackBar1Change(Sender:TObject);
begin
   if not FVolumeUpdating then FEndPoint.SetMasterVolumeLevelScalar(TrackBar1.Position/100,nil);
end;

procedure TForm1.UpdateMasterVolume;
var VolLevel:Single;
begin
   FEndPoint.GetMasterVolumeLevelScalar(VolLevel);
   TrackBar1.Position:=Round(VolLevel*100);
end;

function TMyEndpointVolumeCallback.OnNotify(pNotify:PAUDIO_VOLUME_NOTIFICATION_DATA):HRESULT;
begin
   Result:=S_OK;
   Form1.VolumeUpdating:=True;
   try
      Form1.TrackBar1.Position:=Round(pNotify.fMasterVolume*100);
   finally
      Form1.VolumeUpdating:=False;
   end;
end;

procedure TForm1.CheckBox1Click(Sender:TObject);
var isMute:boolean;
begin
   FEndPoint.GetMute(isMute);//узнаём текущее состояние
   FEndPoint.SetMute(not isMute, nil);//выставляем противоположное
end;

procedure TForm1.Button1Click(Sender:TObject);
var isMute:boolean;
begin
   keybd_event(173,MapVirtualKey(173,0),0,0);
   keybd_event(173,MapVirtualKey(173,0),KEYEVENTF_KEYUP,0);
   FEndPoint.SetMasterVolumeLevelScalar(1,nil);//громкость на 100%
   FEndPoint.GetMute(isMute);//узнаём текущее состояние
   if(isMute=False)then FEndPoint.SetMute(not isMute, nil);//выставляем противоположное
end;

end.