delphi - 选择设备（声卡）在 Delphi 上播放声音

Question

如果我的 PC 有两个声卡，如何选择声卡来播放我的声音。现在我正在使用：

procedure TForm_Principal.FormCreate(Sender: TObject);
var
 DevOutCaps: TWaveOutCaps;
 n, i:Integer;
 s: String; 
begin
 Self.comboOut.Items.Clear;

 n := waveOutGetNumDevs;
 for i := 0 to n-1 do
 begin
   waveOutGetDevCaps(i, @DevOutCaps, SizeOf(DevOutCaps));
   s := PChar(@DevOutCaps.szPname);
   Self.comboOut.Items.Add(s);
 end;
end;

接着：

procedure TForm_Principal.Button1Click(Sender: TObject);
var
  Res: TResourceStream;
begin
  Res := TResourceStream.Create(HInstance, 'Sound_Ringing', RT_RCDATA);
  try
    Res.Position := 0;   
    PlaySound(Res.Memory,
    Self.comboOut.ItemIndex, SND_MEMORY or SND_ASYNC );
    //SndPlaySound(Res.Memory, SND_MEMORY or SND_ASYNC or SND_LOOP);
  finally
    Res.Free;
  end;
end;

它不起作用，任何人都可以帮助我吗？谢谢你。