Identificar Drive Da Aplicação

[jfranco]

Boa tarde,

Como faço para identificar o drive (C:, D:, E:, F:, ...) em que minha aplicação está executando?

Obrigado.

[Churc]

ExtractFileDrive(ParamStr(0));

Vem sem o delimitador \ então se quiser adicionar faça

ExtractFileDrive(ParamStr(0)) + '\';

Voce pode trocar ParamStr(0) por Application.Exename

abraço

[Guest --felipe --]

Boa tarde,

Como faço para identificar o drive (C:, D:, E:, F:, ...) em que minha aplicação está executando?

Obrigado.

fname := Application.ExeName;//captura caminho do arquivo
for i:=0 to length(fname) do begin
  if fname[i]<>'/' then begin
    driver:=driver+[i]
  end else begin
    break;
  end;
end;