Delphi/Lazarus: Programmordner bzw. Pfad der eigenen Anwendung ermitteln

Das ist relativ einfach. Sowohl in Paramstr(0) als auch in Application.ExeName ist der vollständige Pfad zu deiner Programmdatei gespeichert.

Um nur den Ordner zu erhalten, musst du also lediglich den Ordner beziehungsweise Pfad aus Paramstr(0) oder Application.ExeName extrahieren.

var
  ProgOrdner: string;
begin
  ProgOrdner := ExtractFilePath(Application.ExeName);

  // oder

  ProgOrdner := ExtractFilePath(Paramstr(0));
end;

Wie du siehst, geht das mit der Funktion ExtractFilePath(). Diese Funktion schneidet in diesem Fall die Programmdatei vom Pfad ab und liefert dir entsprechend den gewünschten Pfad zu deiner EXE.
Letztes Update am 01.07.2021 | Erstellt am 05.02.2016