kleines problemchen mit filenames

[Der_Unwissende]

Hi und erstmal herzlich willkommen in der DP

Das was Du brauchst sind relative Pfade. Um die zu ermitteln kannst Du einfach den Pfad zur .exe ermitteln, die gestartet wurde. Am einfachsten geht das, wenn Du mit die Funktion ParamStr(0) aufrufst. Die gibt Dir den absoluten Pfad (Laufwerk, Ordner, Name der Exe) Deiner Applikation zurück. Da Dich hier nur der Pfad interessiert kannst Du auf diesen String noch die Funktion ExtractFilePath (enthält dann schon den abschließenden Backslash) aus der Unit SysUtils anwenden.

Mit

Delphi-Quellcode:

var pfadZurExe: String;
begin
  pfadZurExe := ExtractFilePath(ParamStr(0));
...
end;

erhälst Du dann den Pfad zur Exe. Zu der Datei, die Du laden möchtest brauchst Du jetzt nur noch den relativen Pfad zu ergänzen. Liegt z.B. die Datei "A.mp3" im gleichen Ordner, dann nimmst Du

Delphi-Quellcode:

var pfadZurExe: String;
begin
  pfadZurExe := ExtractFilePath(ParamStr(0)) + 'A.mp3';
  // bei Unterordnern entsprechend
  pfadZurExe := ExtractFilePath(ParamStr(0)) + 'Subfolder\Subsubfolder\A.mp3';

Gruß Der Unwissende