Показать сообщение отдельно
  #5  
Старый 15.08.2012, 23:07
mikesunrise mikesunrise вне форума
Прохожий
 
Регистрация: 14.08.2012
Сообщения: 6
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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;
в листбоксе названия звуковух, следующий вопрос - как проиграть звук на выбранной звуковухе - ответ см выше, там же, где и сама библотека

работает, спасибо
извини конечно, я новичок в этом, а как все таки проиграть звук?буду оооочень благодарен)
Ответить с цитированием