[dec]

Hola,

Código Delphi [-]
var
  directorioExe: string;
begin
  directorioExe := ExtractFilePath(Application.ExeName);
  // o también
  // directorioExe := ExtractFilePath(ParamStr(0));    
end;