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;