Цитата:
Сообщение от cotseec
пишем в гугл bass, идем по первой ссылке, скачиваем архив для вин, в примерах находим
Код:
procedure TForm2.FormCreate(Sender: TObject);
var
i: Integer;
ADeviceInfo: BASS_DEVICEINFO;
begin
i := 1;
while BASS_GetDeviceInfo(I, ADeviceInfo) do
begin
ListBox1.Items.Add(ADeviceInfo.name);
i := i + 1;
end;
end;
в листбоксе названия звуковух, следующий вопрос - как проиграть звук на выбранной звуковухе - ответ см выше, там же, где и сама библотека
|
работает, спасибо
извини конечно, я новичок в этом, а как все таки проиграть звук?буду оооочень благодарен)