Hi,
eine andere (mir sympathischere) Möglichkeit ist die Eigenschaft ExeName des Application-Objektes. Diese Eigenschaft enthält den kompletten Pfad (also mit Dateinamen) der Applikation. Mit den Funktionen ExtractFileName() und ExtractFilePath() kannst Du den Dateinamen bzw. das Verzeichnis aus einem kompletten Pfad extrahieren.
Delphi-Quellcode:
sFileName := ExtractFileName(Application.ExeName);
sFileDir := ExtractFilePath(Application.ExeName);
Allerdings glaube ich nicht, dass Du wirklich gesucht hast... denn das hättest Du eigentlich sicher finden müssen