获取windows系统实时播放的音量

获取windows系统实时播放的音量,windows7 系统Embarcadero® Delphi 10 Seattle下调试成功

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2791  2018-05-03 18:59  uMain.pas

     文件        232  2018-05-03 18:54  volume.dpr

     文件      30513  2018-05-03 18:54  volume.dproj

     文件        930  2018-05-03 18:54  volume.dproj.local

     文件      58468  2018-05-03 18:59  volume.res

     文件       7973  2018-05-03 18:59  Win32\Debug\uMain.dcu

     文件   11221574  2018-05-03 18:59  Win32\Debug\volume.exe

     文件        568  2018-05-03 18:59  uMain.dfm

     目录          0  2018-05-03 18:59  Win32\Debug

     目录          0  2018-05-03 18:59  Win32

----------- ---------  ---------- -----  ----

             11323049                    10