用多媒體庫 Bass.dll 播放 mp3 [2] - BASS_GetDeviceInfo: 獲取當前音頻輸出設備列表

Delphi 2009 中使用需要修改一下 Bass.pas 中 BASS_DEVICEINFO 結構的定義, 不然會亂碼://把
BASS_DEVICEINFO = record
　name: PChar;　　　　// description
　driver: PChar;　　　// driver
　flags: DWord;
end;
//改為
BASS_DEVICEINFO = record
　name: PAnsiChar;　　　　// description
　driver: PAnsiChar;　　　// driver
　flags: DWord;
end;本例效果圖:

　　代碼文件:unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls;
type
　TForm1 = class(TForm)
　　Button1: TButton;
　　ListBox1: TListBox;
　　procedure FormCreate(Sender: TObject);
　　procedure Button1Click(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}
uses Bass;
procedure TForm1.FormCreate(Sender: TObject);
begin
　if HiWord(BASS_GetVersion) <> BASSVERSION then
　　MessageBox(0, '"Bass.dll" 文件版本不合適! ', nil, MB_ICONERROR);
　ListBox1.Align := alTop;
　Button1.Caption := '獲取當前音頻輸出設備列表';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
　info: BASS_DEVICEINFO;
　i: Integer;
begin
　i := 1;
　while BASS_GetDeviceInfo(i, info) do
　begin
　　ListBox1.Items.Add(string(info.name));
　　Inc(i);
　end;
end;
end.窗體文件:object Form1: TForm1
　Left = 0
　Top = 0
　Caption = 'Form1'
　ClIEntHeight = 125
　ClIEntWidth = 195
　Color = clBtnFace
　Font.Charset = DEFAULT_CHARSET
　Font.Color = clWindowText
　Font.Height = -11
　Font.Name = 'Tahoma'
　Font.Style = []
　OldCreateOrder = False
　OnCreate = FormCreate
　PixelsPerInch = 96
　TextHeight = 13
　object Button1: TButton
　　Left = 8
　　Top = 86
　　Width = 179
　　Height = 25
　　Caption = 'Button1'
　　TabOrder = 0
　　OnClick = Button1Click
　end
　object ListBox1: TListBox
　　Left = 24
　　Top = 8
　　Width = 113
　　Height = 73
　　ItemHeight = 13
　　TabOrder = 1
　end