Ignore:
Timestamp:
Oct 4, 2011, 4:12:38 PM (13 years ago)
Author:
george
Message:
  • Added: Base classes for Windows audio using mmsystem unit.
  • Added: Audio system manger class for supported systems management.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • CoolAudio/UCoolAudio.pas

    r275 r278  
    33{$mode Delphi}{$H+}
    44
     5{$DEFINE AudioSystemWindows}
     6{$DEFINE AudioSystemMPlayer}
     7{$DEFINE AudioSystemFMOD}
     8
    59interface
    610
    711uses
    8   Classes, SysUtils;
     12  Classes, SysUtils,
     13  {$IFDEF AudioSystemWindows}
     14  UAudioSystemWindows,
     15  {$ENDIF}
     16  {$IFDEF AudioSystemMPlayer}
     17  UAudioSystemMPlayer,
     18  {$ENDIF}
     19  {$IFDEF AudioSystemFMOD}
     20  UAudioSystemFMOD,
     21  {$ENDIF}
     22  UAudioSystem;
     23
     24var
     25  AudioSystemManager: TAudioSystemManager;
    926
    1027implementation
    1128
     29initialization
     30
     31AudioSystemManager := TAudioSystemManager.Create;
     32{$IFDEF AudioSystemWindows}
     33AudioSystemManager.Register('Windows', TAudioSystemWindows, TPlayerWindows);
     34{$ENDIF}
     35{$IFDEF AudioSystemMPlayer}
     36AudioSystemManager.Register('MPlayer', TAudioSystemMPlayer, TPlayerMPlayer);
     37{$ENDIF}
     38{$IFDEF AudioSystemFMOD}
     39AudioSystemManager.Register('FMOD', TAudioSystemFMOD, TPlayerFMOD);
     40{$ENDIF}
     41
     42finalization
     43
     44AudioSystemManager.Free;
     45
    1246end.
    1347
Note: See TracChangeset for help on using the changeset viewer.