Aplicación para directorio Activo

[rgstuamigo]

Haber... vamos a ver si te estoy entendiendo bien...;si cuando hablas de "Directorio Activo" te estás refiriendo al Directorio o carpeta donde está nuestro ejecutable, entonces puedes utilizar la funcion "GetCurrentDir"

Código Delphi [-]
begin
ShowMessage(GetCurrentDir);
end;

Tambien se puede de ésta otra forma:

Código Delphi [-]
begin
ShowMessage( ExtractFileDir(Application.ExeName));
end;

Si no es lo que busca, pues recomiendo explicarte un poco mejor dando más detalles...
Saludos...