Saber unidad de disco donde estoy

[[marceloalegre]]

Que tal amigos, es esta oportunidad los molesto con una simple preguntilla que alguno debe saber seguramente, yo uso units que me dicen el directorio de sistema, donde esta windows y demas; necesito alguna manera de sacar solo la unidad... ejemp:

si instalo mi programa c:\mis_programas\programa

que pueda de sacar el c: en algun string...


me podran ayudar con esto? Gracias.-

[dec]

Hola,

La respuesta está en la unidad SysUtils:

Código Delphi [-]
 var
   unidad: string;
 begin
   unidad := ExtractFileDrive('C:\archivo.txt');
 end;

[jachguate]

Para saber la ruta donde está instalado tu programa:

Código Delphi [-]
  MiRuta := ParamStr(0);
  MiUnidad := ExtractFileDrive(MiRuta);

no recuerdo si paramstr(0) pasa la ruta completa, pero si no lo hiciera, podes completarla con una llamada a ExpandFileName.

Hasta luego.

[dec]

Hola,

Empezado por jachguate

no recuerdo si paramstr(0) pasa la ruta completa...

Sí que lo hace jachguate.

[jachguate]

Empezado por dec

Sí que lo hace jachguate.

Gracias por la aclaración... es una de esas dudas recurrentes... probablemente me verás dentro de algunos meses dudandolo de nuevo..