Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как получить UNC-путь к файлу?

01.01.2007
function GetUNCName(PathStr: string): string;
var
  bufSize
: DWord;
  buf
: TUniversalNameInfo;
  msg
: string;
begin
  bufSize
:= SizeOf(TUniversalNameInfo);
 
if (WNetGetUniversalName(PChar(PathStr), UNIVERSAL_NAME_INFO_LEVEL,
    buf
, bufSize) > 0) then
   
case GetLastError of
      ERROR_BAD_DEVICE
: msg := 'ERROR_BAD_DEVICE';
      ERROR_CONNECTION_UNAVAIL
: msg := 'ERROR_CONNECTION_UNAVAIL';
      ERROR_EXTENDED_ERROR
: msg := 'ERROR_EXTENDED_ERROR';
      ERROR_MORE_DATA
: msg := 'ERROR_MORE_DATA';
      ERROR_NOT_SUPPORTED
: msg := 'ERROR_NOT_SUPPORTED';
      ERROR_NO_NET_OR_BAD_PATH
: msg := 'ERROR_NO_NET_OR_BAD_PATH';
      ERROR_NO_NETWORK
: msg := 'ERROR_NO_NETWORK';
      ERROR_NOT_CONNECTED
: msg := 'ERROR_NOT_CONNECTED';
   
end
 
else
    msg
:= buf.lpUniversalName;
 
 
Result := msg;
end;

Работает только на NT/2000/XP

Взято с Delphi Knowledge Base: https://www.baltsoft.com/