Cette fonction retourne la nom complet d'une chemin de répertoire sous format UNC (ayant la partie d'unité sous forme de chemin réseau) avec une chaîne de caractères standard au Pascal.

Function ExpandUNCFileName(const FileName: String): String;

procedure TForm1.Button1Click(Sender: TObject);
begin

Label1.Caption := ExpandUNCFileName('c:\dossier\fichier.txt');
// resultat : c:\dossier\fichier.txt

end;