kleines problemchen mit filenames

[kriegtsnichaufdiereihe]

moin,
ich hab da ein kleines problem mit dem filename von einem song, den ich gerne zu einem programm hinzufügen möchte (bei delphi 7 personal)...also das mit dem song selber funktioniert, aber ich hätte das programm gerne so, dass es auch auf anderen pcs funktioniert. denn wenn man das mit dem filename einfach so stehen lässt, kommt ja die fehlermeldung, dass er die datei unter dem angegebenen verzeichnis nicht finden kann. ich habe es schon mit fileexist probiert, aber ich kann ja nicht für jedes laufwerk und jeden ordner das alles nochmal hinschreiben...mal abgesehen davon, dass es sowieso nicht funktioniert hat ... dann hab ich auch noch weitergesucht und filesearch gefunden, aber da hab ich überhaupt keine ahnung wie das geht...
also letztendlich soll das ganze in etwa so aussehen: das programm und der song sollen zusammen in einem ordner sein und von einem speicherstick aus auf verschiedenen pcs ausführbar sein.

wär echt nett von euch, wenn ihr mir da weiterhelfen könntet (und wenn es eben geht, möglichst detailiert...ich hab erst seit einem halben jahr informatik...^^)

vielen dank schon mal im vorraus,

mfg steffen

[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

[Blackheart]

Filename!?

[kriegtsnichaufdiereihe]

wow danke...ich werd das gleich mal ausprobieren...^^

@ blackheart: ja sorry, ich wusste nich wie das beschreiben sollte...

[Der_Unwissende]

Ahso,
mal noch eine kleine Bitte. Um es den Leuten in der DP leichter zu machen Dir zu helfen wäre es sehr nett, wenn Du etwas auf die Rechtschreibung achten würdest. Trotz Reformen ist Groß- und Kleinschreibung doch noch recht beliebt und einfach besser lesbar

[kriegtsnichaufdiereihe]

Oh okay, tut mir Leid. Wird nicht wieder vorkommen! ^^

LG Steffen

[kriegtsnichaufdiereihe]

Juhu es klappt!!! Wow, vielen Dank der Unwissende! Du hast mir echt sehr geholfen!...Danke!

LG Steffen