[Pyro]

выбирает первый попавшийся кабель

Код:

function virtual_cable: integer;
var i, n, r: integer;
    m: HMIXER;
    d: MIXERCAPS;
    name: string;
begin
  n := mixerGetNumDevs;
  result := -1;
  for i := 0 to n - 1 do
  begin
    r := mixerOpen(@m, i, 0, 0, 0);
    r := mixerGetDevCaps(m, @d, sizeof(d));
    name := LowerCase(StrPas(d.szPname));
    if (pos('virtual', name) <> 0) and (pos('cable', name) <> 0) then begin
      result := i + 1; break;
    end;
  end;
end;

//...

device := virtual_cable;
if not BASS_Init(device, 44100, 0, Handle, nil) then