Obter Unidade do Programa

14/02/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


Marcelo_mileris

Respostas

14/02/2006

Sremulador

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


Responder Citar

15/02/2006

Aroldo Zanela

Colega,

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



Responder Citar

15/02/2006

Massuda

Para saber qual a unidade de disco onde o programa está instalado...
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.


Responder Citar