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...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
