1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

  type
    TAudioFile = class
    private
        fInterpret: String;
        fTitel    : String;
        fPfad     : String;
        fDauer    : Integer;

        procedure GetMp3Info;
        procedure GetWmaInfo;
        procedure SetUnknown;

        function GetPlaylistTitel: String;

    public
        property Interpret: String read fInterpret write fInterpret;
        property Titel    : String read fTitel     write fTitel;
        property Pfad     : String read fPfad;
        property Dauer    : Integer read fDauer write fDauer;
        property PlaylistTitel: String read GetPlaylistTitel;

        constructor Create;
        destructor Destroy; override;

        procedure GetAudioInfo(filename: String);
        procedure Assign(aAudioFile: TAudioFile);
    end;
TMeMPPlayer = class
private
 fMainStream: DWord;
fMainVolume: single;
fMainAudioFile: TAudioFile;
function MeMP_CreateStream(aFilename: String): DWord;
procedure SetVolume(Value: single);
function GetTime: Double;
function GetProgress: Double;
procedure SetProgress(Value: Double);
function GetBassStatus: DWord;
public
property Volume: single read fMainVolume write SetVolume;
property Time: Double read GetTime;
property Progress: Double read GetProgress write SetProgress;
property BassStatus: DWord read GetBassStatus;
constructor Create;
procedure SetPosition(Value: Longword);
destructor Destroy; override;
procedure InitBassEngine(HND: HWND);
procedure Play(aAudioFile: TAudioFile);
procedure Pause;
procedure Stop;
procedure Resume;
procedure StopAndFree;
end;
implementation

procedure TMeMPPlayer.Play(aAudioFile: TAudioFile);
begin
if aAudioFile <> NIL then
begin
fMainAudioFile.Assign(aAudioFile);
StopAndFree;
fMainstream := MeMP_CreateStream(fMainAudioFile.Pfad);
BASS_ChannelSetAttribute(fMainStream, BASS_ATTRIB_VOL, fMainVolume);
BASS_ChannelPlay(fMainStream , True);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin

globalaudiofile:= TAUDIOfile.create;
MEMPPLAYER:=TMEMPpLAYER.create;
  MeMPPlayer.InitBassEngine(Handle);
MeMPPlayer.Volume := 1;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

case MeMPPlayer.BassStatus of
BASS_ACTIVE_STOPPED:
begin
MeMPPlayer.Play(GlobalAudioFile);//Genau hier
//LblTitel.Caption := GlobalAudioFile.PlaylistTitel;
end;
BASS_ACTIVE_PLAYING: MeMPPlayer.Pause;
BASS_ACTIVE_PAUSED : MeMPPlayer.Resume;
end;
end;					

1:

If funzt=true then Juhuuuu! ;