Um das jeweilige Verzeichnis zu ermitteln, bedient man sich der Funktion "ParamStr", die die Aufrufparameter des Programms in Abhängigkeit eines Index zurück liefert. Dabei wird für den Index 0 - ParamStr(0) - der vollständige Pfad des Programms zurückgegeben.
Am besten fragt man im OnCreate-Event des Formulars den Programmpfad ab und speichert ihn in einer globalen Variablen. Damit ist dann das Programmverzeichnis von jeder Stelle des Programms aus zugänglich:
Deklaration der globalen Variable:
var
HomeDir : string;
...
...
im OnCreate-Event des Formular wird folgendes Statement eingetragen:
HomeDir := ExtractFilePath(ParamStr(0));
|