Question

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

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

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

我的要求是：在初始加载此列表时，我想选择默认设备（在Windows 7中设置 - 控制面板 - ＆gt;声音 - ＆gt;播放选项卡）

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

代码：

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”方法。

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

1 个答案: