Delphi/Lazarus: Cómo obtener la Carpeta o Ruta del proprio Programa

Eso es bastante sencillo. En Paramstr(0) así como en Application.ExeName, se almacena la ruta completa al archivo de su aplicación.

Para obtener la carpeta correspondiente, solo tiene que extraer la ruta de Paramstr(0) o Application.ExeName.

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

  // o

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

Como puede ver, puede lograr esto usando la función ExtractFilePath(). En este caso, esta función corta el archivo de programa de la ruta y, en consecuencia, proporciona la ruta deseada a su EXE.
30/06/2021 a las 23:15