Array
(
)

Obter Unidade do Programa

Marcelo_mileris
   - 14 fev 2006

É o seguinte:

Quero poder obter a unidade no qual o sistema está sendo executado...

Exemplo:

Caso ele esteja sendo executado na unidade C, apareça uma mensagem dizendo que ele está sendo executado na unidade C

Ou

Caso ele esteja sendo executado na unidade D, apareça uma mensagem dizendo que ele está sendo executado na unidade D

Existe alguma forma de se fazer isso?

Desde já agradeço

Marcelo


Sremulador
   - 14 fev 2006

basta vc pegar a path do arquivo
Extract.... não me lembro ao certo o comando mas esta no sysutils...


Aroldo Zanela
   - 15 fev 2006

Colega,

#Código


ShowMessage(Copy(ExtractFilePath(Application.ExeName),1,3));



Massuda
   - 15 fev 2006

Para saber qual a unidade de disco onde o programa está instalado...#Código

uses
SysUtils,
...

var
Disco: string;
....
Disco := ExtractFileDrive(Application.ExeName);
// Disco = ´C´ ou Disco = ´\\servidor\compartilhamento´


Para saber qual a pasta em uso pelo programa, use GetCurrentDir da unir SysUtills.