Obter Unidade do Programa

14/02/2006

0

É 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

Responder

Posts

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

15/02/2006

Aroldo Zanela

Colega,

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



Responder

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar