Воспроизведение звуковых файлов (wav или mp3)

uses
  mmsystem;
 
// PLAY
sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC);
 
// Loop Mode (зацикливание)
sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC + SND_LOOP);
 
//STOP
sndPlaySound(nil, SND_ASYNC);

procedure TForm1.FormCreate(Sender: TObject);
var 
  MMplay:TMediaPlayer;
begin
  MMplay:=TMediaPlayer.Create(application);
  with MMplay do
  begin
    CreateParented(Form1.Handle);
    FileName:='D:\music\other\et.wav';
    Open;
    Play;
  end;
end;

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Bass;
 
type
  TChannelType = (ctUnknown, ctStream, ctMusic);
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
 
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
    function BASS_PlaySoundFile(const FileName: string): Boolean;
  end;
 
var
  Form2: TForm2;
  Channel: DWORD;
     ChannelType: TChannelType;
implementation
 
{$R *.dfm}
 
{ TForm2 }
 
function TForm2.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
   Result:= False;
   Channel:= BASS_StreamCreateFile(False, PChar(FileName), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;
  if (Channel <> 0) then
    BASS_ChannelPlay(Channel, False);
  Result:= Channel <> 0;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  case FileExists('9.mp3') of
    True: case BASS_PlaySoundFile('9.mp3') of
            True: ShowMessage('File run');
            False: ShowMessage('Unknown error');
          end;
    False: ShowMessage('File not found');
  end;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  BASS_ChannelStop(Channel);
end;
 
procedure TForm2.FormCreate(Sender: TObject);
var
  BassInfo: BASS_INFO;
begin
  BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil);
  BASS_Start;
  BASS_GetInfo(BassInfo);
end;
end.

var
  FileSoundName: string = '\_config\add.mp3';
begin
  PlaySound(PChar(MyDir +FileSoundName), 0, SND_FILENAME);
end;

var a:array[0..300] of char;
begin
strpcopy(a,filename);
Channel := BASS_StreamCreateFile(FALSE,@a, 0, 0, 0);
if channel<>0 Then BASS_ChannelPlay(Channel, False) Else ShowMessage('Error '+IntToStr(BASS_ErrorGetCode));
end;