delphi 利用Core Audio API控制应用程序音量

乙楽乙

已于 2022-11-20 16:33:54 修改

阅读量442

点赞数

分类专栏： IT技术文章标签： delphi

于 2022-11-18 21:45:24 首次发布

本文链接：https://blog.csdn.net/qq_17029305/article/details/127930236

版权

利用 Core Audio API 控制系统的音量，类似系统的音量合成器纯delphi 代码、

代码片段

procedure TForm3.FormCreate(Sender: TObject);
var
deviceEnumerator: IMMDeviceEnumerator;
b: LongBool;
VolumeLevel: Single;
begin
mmo1.Clear;

CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);

defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_ALL, nil, IUnknown(endpointVolume));
if endpointVolume = nil then Exit;
endpointVolume.GetMute(b);
endpointVolume.GetMasterVolumeLevelScalar(VolumeLevel);
trckbr1.Position := Round(100 - 100 * VolumeLevel);

if defaultDevice.Activate(IID_IAudioSessionManager, CLSCTX_ALL, nil, AudioSessionManager )=S_OK then
begin
mmo1.Lines.Add('Activate AudioSessionManager = ok ');