Übergib den Pfad doch einfach...
Delphi-Quellcode:
constructor TBassDll.create(Path:string);
var DLLData:TMemoryStream;
begin
DLLData:=TMemoryStream.Create;
try
if not FileExists(Path + BASS_FILENAME) then begin
DLLData.Clear;
DLLData.Write(BASSData, BASSSize);
DLLData.SaveToFile(Path + BASS_FILENAME);
end;
if not FileExists(Path + BASSFX_FILENAME) then begin
DLLData.Clear;
DLLData.Write(BASSFXData, BASSFXSize);
DLLData.SaveToFile(Path + BASSFX_FILENAME);
end;
finally
DLLData.free;
end;
if LoadBassDll then
if LoadBassFxDll then ;
end;