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;