Obtener direccion , ruta completa de mi programa

[[seoane]]

Empezado por Lepe

quizás otro más intuitivo: Application.Exename

Tenemos funciones para todo, para cuando la función "mata_a_flanders"

Código Delphi [-]
TApplication = class(TComponent)
  private 
     ...    
    function GetExeName: string;    
     ...
  public
     ...    
    property ExeName: string read GetExeName;

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;