Simply Player - ein Media Player

[Gausi]

...oder in dem Beispiel-Projekt, was bei der bass.dll dabei liegt

Delphi-Quellcode:

var   fd: TWin32FindData;
  fh: THandle;
  plug: DWORD;
  Info: PBass_PluginInfo;
//...
PlaylistDateienOpenDialog.Filter :=
        'Eingebaute Formate' + '|' + '*.mp3;*.mp2;*.mp1;*.ogg;*.wav*;*.aif';

  fh := FindFirstFile(PChar(ExtractFilePath(ParamStr(0)) + 'bass*.dll'), fd);
  if (fh <> INVALID_HANDLE_VALUE) then
  try
    repeat
      plug := BASS_PluginLoad(fd.cFileName, 0);
      if Plug <> 0 then
      begin
        Info := BASS_PluginGetInfo(Plug); 
        for a := 0 to Info.formatc - 1 do
        begin
          // Set The OpenDialog additional, to the supported PlugIn Formats
          PlaylistDateienOpenDialog.Filter := PlaylistDateienOpenDialog.Filter
            + '|' + Info.Formats[a].name + ' ' + '(' +
          Info.Formats[a].exts + ')|' + Info.Formats[a].exts;
             // showmessage(Info.Formats[a].exts);
        end;
      end;
    until FindNextFile(fh, fd) = false;
  finally
    Windows.FindClose(fh);
  end;