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:


var
unidad: string;
begin
unidad := ExtractFileDrive('C:\archivo.txt');
end;

[jachguate]

Para saber la ruta donde está instalado tu programa:


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,


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

Sí que lo hace jachguate.

[jachguate]

Sí que lo hace jachguate.
Gracias por la aclaración... es una de esas dudas recurrentes... :rolleyes: probablemente me verás dentro de algunos meses dudandolo de nuevo.. :confused:

:D