Como Obtener las carpetas del sistema?

[Juvencio]

Soy un miembro nuevo en el club y estoy leyendo su respuesta y creo que es más sencillo con el componente, si alguno de Uds. pueden ingresar el componente o hacer el favor de mandarlo al correo electrónico de un servidor se lo voy a agradecer.
se les dan las gracias a los miembros de este club y a los moderadores por su ayuda.

[dec]

Hola,

Puedes descargar los componentes "DecComp" (entre los que se encuentra "TDirsWin") desde Archivos del ClubDelphi.

[el_barto]

Como se puede obtener la ruta exacta donde esta ubicado un .exe de delphi desde la ejecucion de este mismo.

Gracias por la colaboracion.

[dec]

Hola,

A qué te refieres con "un .exe de Delphi"... Si te refieres al ejecutable de tu aplicación (desarrollada con Delphi) cuentas con "ParamStr", que retorna cada uno de los parámetros pasados a tu ejecutable. El parámetro número cero es la ruta del ejecutable de tu aplicación:

Código Delphi [-]
var
  ruta: string;
begin
  ruta := ParamStr(0);
end;

Luego si quieres obtener el directorio de tu aplicación puedes hacerlo de este modo:

Código Delphi [-]
uses
  SysUtils;

{...}

var
  ruta: string;
begin
  ruta := ExtractFilePath(ParamStr(0));
end;