Как получить UNC путь к файлу?
functionGetUNCName(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