Delphi/Lazarus: Determinar Carpeta de Aplicación propia

Delphi y Lazarus nos facilitan obtener el directorio, en el que se guarda el archivo exe de nuestra aplicación. Esta línea de código nos da la ruta de nuestro programa:

// path es un string
path := ExtractFilePath(ParamStr(0));

ParamStr(0) contiene la ruta completa y el nombre de archivo de nuestra aplicación. Con la ayuda de ExtractFilePath(), extraemos solo la ruta.

Alternativamente, también puede usar Application.Exename en lugar de ParamStr(0). Application.Exename también contiene la ruta completa y el nombre de archivo de la aplicación.