Obter Unidade do Programa

Delphi

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

Marcelo_mileris

Curtidas 0

Respostas

Sremulador

Sremulador

14/02/2006

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


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

14/02/2006

Colega,

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



GOSTEI 0
Massuda

Massuda

14/02/2006

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.


GOSTEI 0
POSTAR