Obter Unidade do Programa
É 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
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
Curtidas 0
Respostas
Sremulador
14/02/2006
basta vc pegar a path do arquivo
Extract.... não me lembro ao certo o comando mas esta no sysutils...
Extract.... não me lembro ao certo o comando mas esta no sysutils...
GOSTEI 0
Aroldo Zanela
14/02/2006
Colega,
ShowMessage(Copy(ExtractFilePath(Application.ExeName),1,3));
GOSTEI 0
Massuda
14/02/2006
Para saber qual a unidade de disco onde o programa está instalado...
Para saber qual a pasta em uso pelo programa, use GetCurrentDir da unir SysUtills.
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