Como conocer Path a mi programa sin usar Getcurrentdir

[rrf]

Hola a todos/as.

busco ayuda para saber como conocer el path o la trayectoria hasta mi programa, en tiempo de ejecución.

He usado Getcurrentdir, pero me he dado cuenta de que en ciertas condiciones, da un path que no es el del programa, sino el del ícono del Desktop desde el que es llamado.

Utilizo Delphi 5 Pro.

Muchas gracias de antemano.

[[__hector]]

ExtractFilePath(Application.Exename)