Delphi - Detectar el directoiro y el nombre de la aplicacio

Hola a todos,el motivo de mi pregunta es el siguiente,necesito,hacer una aplicacion que detecte el nombre de si misma y la ruta donde se encuentra,es decir que la ejecutarla te indique su ruta y su nombre idependientemente de si se cambia el nombre o se cambia de directorio
Muchas gracias

Bueno, pues de vez en cuando hay que mirar la ayuda en línea, ¿eh?.

Tienes la propiedad ExeName del objeto Application que te devuelve el nombre del ejecutable (con la ruta). Además tienes las funciones:

- ExtractFileName(Nombre_Fichero)
- ExtractFilePath(Nombre_Fichero)

Que te devuelven respectivamente el nombre y ruta de un nombre completo de fichero.

Por tanto, si yo un ejecutable:

D:\MiAplicacion\Ejecutable.exe

Application.ExeName contiene 'D:\MiAplicacion\Ejecutable.exe'

ExtractFileName(Application.ExeName) me devuelve 'Ejecutable.exe'

y

ExtractFilePath(Application.ExeName devuelve 'D:\MiAplicacion'

Saludos.