Bass.dll: BASS_GetVersion() -> AV an Adresse 0x00000000

[turboPASCAL]

@Spider Starte mal den Rechner neu. (unload event. DLL's)

Habe deinen Code getestet und er ist ok, bis auf:

Delphi-Quellcode:

if Bass_GetVersion() <> DWORD(MAKELONG(2, 1)) then // Da kommt die Exception
  begin
    Error('BASS.DLL 2.1 nicht geladen!' + #10 + 'Ihre BASS.DLL-Version: %s',
      [Bass_GetVersion()], EBassLoadError);
  end;

ändern zu:

Delphi-Quellcode:

if Bass_GetVersion() <> DWORD(MAKELONG(2, 1)) then
  begin
    Error('BASS.DLL 2.1 nicht geladen!' + #10 + 'Ihre BASS.DLL-Version: %d.%d',
      [LoWord(Bass_GetVersion()),HiWord(Bass_GetVersion())], EBassLoadError);
  end;

weil: BASS_GetVersion: DWORD;