source: CoolAudio/CoolAudio.pas

unit CoolAudio;

{$I CoolAudioConfig.inc}

interface

uses
  Classes, SysUtils,
  {$IFDEF AudioSystemWindows}AudioSystemWindows,{$ENDIF}
  {$IFDEF AudioSystemMPlayer}AudioSystemMPlayer,{$ENDIF}
  {$IFDEF AudioSystemFMOD}AudioSystemFMOD,{$ENDIF}
  {$IFDEF AudioSystemMAD}AudioSystemMAD,{$ENDIF}
  {$IFDEF AudioSystemDSP}AudioSystemDSP,{$ENDIF}
  AudioSystem;

var
  AudioSystemManager: TAudioSystemManager;

procedure Register;


implementation

uses
  PlayList;

procedure Register;
begin
  RegisterComponents('CoolAudio', [TMediaPlayer, TPlayList]);
end;

initialization

AudioSystemManager := TAudioSystemManager.Create(nil);
{$IFDEF AudioSystemWindows}AudioSystemManager.Register('Windows', TAudioSystemWindows);{$ENDIF}
{$IFDEF AudioSystemMPlayer}AudioSystemManager.Register('MPlayer', TAudioSystemMPlayer);{$ENDIF}
{$IFDEF AudioSystemFMOD}AudioSystemManager.Register('FMOD', TAudioSystemFMOD);{$ENDIF}
{$IFDEF AudioSystemMAD}AudioSystemManager.Register('MAD', TAudioSystemMAD);{$ENDIF}
{$IFDEF AudioSystemDSP}AudioSystemManager.Register('DSP', TAudioSystemDSP);{$ENDIF}

finalization

FreeAndNil(AudioSystemManager);

end.