GetFileVersionInfoSize и сетевое имя файла

← →
Слэш © (2003-12-01 11:53) [0]

var sz:integer;
i:cardinal;
file:string;
begin
sz:=GetFileVersionInfoSize(PChar(file),i);
end;

Если file="\\compname\pub\program.exe" тогда всё нормально, возвращает размер,
а если file="\\192.168.1.1\pub\program.exe" тогда почемуто возвращает 0.

compnam=192.168.1.1
под d3 всё было нормально.

← →
REA © (2003-12-01 11:58) [1]

А код ошибки посмотри. А кто преобразует из IP в Name - наверно hosts или WINS какой-нить?

← →
Слэш © (2003-12-01 12:37) [2]

Код ошибки - 161 ?
Где можно его расшифровку посмотреть?

← →
REA © (2003-12-01 13:02) [3]

SysUtils.RaiseLastOSError:

procedure RaiseLastOSError;
var
LastError: Integer;
Error: EOSError;
begin
LastError := GetLastError;
if LastError <> 0 then
Error := EOSError.CreateResFmt(@SOSError, [LastError,
SysErrorMessage(LastError)])
else
Error := EOSError.CreateRes(@SUnkOSError);
Error.ErrorCode := LastError;
raise Error;
end;

из модуля Windows

{ The specified path is invalid. } ERROR_BAD_PATHNAME = 161; {$EXTERNALSYM ERROR_BAD_PATHNAME}

Странно.. под XP нормально воспринимает GetFileVersionInfoSize, а под 98 - ошибка.
Короче сделал вместо
sz:=GetFileVersionInfoSize(PChar(file),i);
sz:=10000;
:)

GetFileVersionInfoSize и сетевое имя файла Найти похожие ветки