Boa tarde,
Como faço para identificar o drive (C:, D:, E:, F:, ...) em que minha aplicação está executando?
Obrigado.
Versão Completa: Identificar Drive Da Aplicação
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
Vem sem o delimitador \ então se quiser adicionar faça
ExtractFileDrive(ParamStr(0)) + '\';
Voce pode trocar ParamStr(0) por Application.Exename
abraço
QUOTE(jfranco @ 21/06/2007 - 15:48) 
Boa tarde,
Como faço para identificar o drive (C:, D:, E:, F:, ...) em que minha aplicação está executando?
Obrigado.
Como faço para identificar o drive (C:, D:, E:, F:, ...) em que minha aplicação está executando?
Obrigado.
CODE
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;
for i:=0 to length(fname) do begin
if fname[i]<>'/' then begin
driver:=driver+[i]
end else begin
break;
end;
end;
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.