| |
 |
Wie ermittle ich den Ordner der Programmdatei (*.exe) ?
06-10-2002 18:26
|
|
|
Wie ermittle ich den Ordner, in dem sich die EXE-Datei meines Programms auf dem jeweiligen Rechner befindet?
|
1. TApplication-Objekt
In der Eigenschaft "ExeName" des TApplication-Objekts ist der komplette Dateiname der Programmdatei inklusive Pfad gespeichert. Um nur den Ordner der EXE-Datei zu erhalten, kann man diesen mit ExtractFilePath isolieren:
|
procedure TMainForm.FormCreate(Sender: TObject);
var ProgrammOrdner : string;
begin
ProgrammOrdner:=ExtractFilePath(Application.ExeName);
end;
|
2. ParamStr(Funktion)
ParamStr(0) gibt den Pfad und den Dateinamen des ausgef?hrten Programms zur?ck (z.B. C:\TEST\MYPROG.EXE). Um nur den Ordner der EXE-Datei zu erhalten, kann man diesen mit ExtractFilePath isolieren:
|
procedureTMainForm.FormCreate(Sender: TObject);
var ProgrammOrdner : string;
begin
ProgrammOrdner:=ExtractFilePath(ParamStr(0));
end;
|
|
|
