Como converter o caminho relativo de um arquivo em caminho absoluto

[SubCash 0]

Em algumas situações precisamos converter o caminho relativo de um determinado arquivo para um caminho absoluto. Para isso podemos usar a função ExpandFileName(), presente na unit SysUtils. Esta função recebe o nome de um arquivo relativo ao executável da aplicação e devolve o mesmo nome de arquivo precedido pelo seu caminho completo no sistema. Veja o trecho de código a seguir:

 

procedure TForm1.Button1Click(Sender: TObject); var arquivo, completo: string; begin // nome do arquivo relativo ao executável da aplicação arquivo := 'arquivo.txt'; // vamos obter o caminho completo do arquivo completo := ExpandFileName(arquivo); // exibe o resultado ShowMessage('O caminho e nome completo de ' + arquivo + ' é ' + completo); end;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.