Dateien aus Verzeichnis des Programmes öffnen

[Jackel89]

Hi!

Ich möchte in meinem Programm Sounds abspielen, allerdings kriege ich es nicht hin, diese Sounds aus dem Ordner zu öffnen, in dem sich die .exe des Programms befindet, also es soll so sein, dass ich jemand anderem den Ordner mit Programm und Sounds schicken kann und der das Programm dann mit Sounds verwenden kann, egal wo auf seinem Rechner sich der Ordner befindet.

Ich weis, das wurde hier schon öfter erklärt, aber ich weis nicht wirklich, wie ich das in mein Programm einbauen muss (bin noob :wink: ):

Delphi-Quellcode:

s:=extractfilepath(application.exename);

ich verwende den BassDllPlayer und im Moment sieht das bei mir so aus:

Delphi-Quellcode:

player1.LoadFromFile('C:\sound.wav');
player1.Play;

aber der Player soll die Datei dann halt aus dem Ordner laden, in dem sich das Programm befindet, unabhängig davon wo sich der Ordner befindet :?

[marabu]

Hi.

Das sollte dir helfen:

Delphi-Quellcode:

var
  exeDir: String;
begin
  exeDir := ExtractFilePath(ParamStr(0));
  player.LoadFromFile(exeDir + 'sound.wav');
  player.Play;
end;

Grüße vom marabu

[pacman1986]

Delphi-Quellcode:

player1.LoadFromfile(extractfilepath(application.exename)+'\sound.wav');

[fLaSh11]

machs doch einfach so:

Delphi-Quellcode:

s:=LoadFromFile('.\extra\sound.wav');

edit:
'.' ist das Verzeichnis, indem sich die exe befindet

[marabu]

@pacman: ExtracFilePath() liefert einen terminierenden BackSlash...

@flash: mit dem dot dir wird aus dem current working directory geladen - das ist nicht immer das exe dir...

Freundliche Grüße vom marabu

[Jackel89]

wow das ging ja schnell!

funktioniert bestens, vielen dank :) :cheers:

[Boombuler]

Ach ja wenn man sich mal nich sicher ist ob eine Funktion einen Backslash anhängt kann man sicherheitshalber immer noch mal ein "IncludeTrailingPathDelimiter" daran hängen!

Greetz
Boombuler