Obter Unidade do Programa

Question

� 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 un...

Sremulador · Answer

basta vc pegar a path do arquivoExtract.... n�o me lembro ao certo o comando mas esta no sysutils......

Aroldo Zanela · Answer

Colega,[code:1:f4505ffa9a]  ShowMessage(Copy(ExtractFilePath(Application.ExeName),1,3));[/code:1:f4505ffa9a]...

Massuda · Answer

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.