delphi - DSPack - 如何获取声音输出的默认设备？

Question

在 Windows 7 中，有多个播放设备。

示例(在我的笔记本电脑上):扬声器和双耳机独立双耳机SPDIF(通过 HP Dock 进行数字输出)

情况是这样的:我正在编写一个应用程序，让用户选择输出设备并将其保存到应用程序的设置中。因此，它为用户提供了组合框中所有 Directsound 设备的选择。用户选择他喜欢的一项并保存。

我的要求是:初始加载此列表时，我想选择默认设备(在 Windows 7 - 控制面板 -> 声音 -> 播放选项卡中设置)

所以我枚举音频输出设备的代码是:

代码:

procedure TForm1.FillDevices;
var
  AudioDevEnum: TSysDevEnum;
  n: string;
  i, ps: integer;
begin

  AudioDevEnum := TSysDevEnum.Create(CLSID_AudioRendererCategory);
  try

    if AudioDevEnum.CountFilters = 0 then
      Exit;

    for i := 0 to AudioDevEnum.CountFilters - 1 do
    begin
      n  := AudioDevEnum.Filters[i].FriendlyName;
      ps := pos('DirectSound: ', n);
      if ps <> 0 then
      begin
        ps := pos('Modem', n);
        if ps = 0 then
        begin
          // Delete(n, 1, 13);
          lstDevices.Items.Add(n);
        end;
      end;
    end;
    lstDevices.ItemIndex := 0;

  finally
    AudioDevEnum.Free;
  end;
end;

获取列表后，我想检测声音控制面板中设置为“默认设备”的项目，并选择它。这样应用程序就能第一次保存正确的设备，而不需要用户执行此工作。

这可以做到吗？怎么办？

提前致谢。

编辑:请注意，我想选择并保存(到 INI 文件)默认设备，以便我的应用程序可以使用它来输出声音(通过 DSPack 组件)。我不想更改 Windows 设置。

Answer 1

这是一个查询驱动程序首选播放设备( http://msdn.microsoft.com/en-us/library/aa909815.aspx )的方法，GetWaveOutDeviceList 将返回设备列表，GetWaveOutDevice 将返回首选设备列表中的索引。

// this method will return the index in the list
function GetWaveOutDevice: Cardinal;
const
  DRVM_MAPPER=$2000;
  DRVM_MAPPER_PREFERRED_GET = DRVM_MAPPER + 21;
  DRVM_MAPPER_PREFERRED_SET = DRVM_MAPPER + 22;
var
 LDW2: Cardinal;
begin
 Result := $FFFFFFFF;
 LDW2 := 0;
 waveOutMessage( WAVE_MAPPER, DRVM_MAPPER_PREFERRED_GET, DWORD( @Result ), DWORD( @LDW2 ) );
end;

// this method will retrieve the list of devices
procedure GetWaveOutDeviceList(List: TStrings);
var
 Index: Integer;
 LCaps: WAVEOUTCAPS;
begin
  List.Clear;
  for Index := 0 to waveOutGetNumDevs -1 do begin
    waveOutGetDevCaps( Index, @LCaps, SizeOf( LCaps ) );
    List.add( LCaps.szPname );
  end;
end;

如果您想获取录音设备，只需将上述方法中的“WaveOut”替换为“WaveIn”即可。