用多媒体库Bass.dll播放mp3[2]BASS_GetDeviceInfo:获取当前音频输出设备列表

//把
BASS_DEVICEINFO &＃61; recordname: PChar; // descriptiondriver: PChar; // driverflags: DWORD;
end;//改为
BASS_DEVICEINFO &＃61; recordname: PAnsiChar; // descriptiondriver: PAnsiChar; // driverflags: DWORD;
end;
本例效果图:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 &＃61; class(TForm)Button1: TButton;ListBox1: TListBox;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses Bass;procedure TForm1.FormCreate(Sender: TObject);
beginif HiWord(BASS_GetVersion) <> BASSVERSION thenMessageBox(0, &＃39;"Bass.dll" 文件版本不合适! &＃39;, nil, MB_ICONERROR);ListBox1.Align :&＃61; alTop;Button1.Caption :&＃61; &＃39;获取当前音频输出设备列表&＃39;;
end;procedure TForm1.Button1Click(Sender: TObject);
varinfo: BASS_DEVICEINFO;i: Integer;
begini :&＃61; 1;while BASS_GetDeviceInfo(i, info) dobeginListBox1.Items.Add(string(info.name));Inc(i);end;
end;end.
窗体文件:

object Form1: TForm1Left &＃61; 0Top &＃61; 0Caption &＃61; &＃39;Form1&＃39;ClientHeight &＃61; 125ClientWidth &＃61; 195Color &＃61; clBtnFaceFont.Charset &＃61; DEFAULT_CHARSETFont.Color &＃61; clWindowTextFont.Height &＃61; -11Font.Name &＃61; &＃39;Tahoma&＃39;Font.Style &＃61; []OldCreateOrder &＃61; FalseOnCreate &＃61; FormCreatePixelsPerInch &＃61; 96TextHeight &＃61; 13object Button1: TButtonLeft &＃61; 8Top &＃61; 86Width &＃61; 179Height &＃61; 25Caption &＃61; &＃39;Button1&＃39;TabOrder &＃61; 0OnClick &＃61; Button1Clickendobject ListBox1: TListBoxLeft &＃61; 24Top &＃61; 8Width &＃61; 113Height &＃61; 73ItemHeight &＃61; 13TabOrder &＃61; 1end
end