Еще один дурной вопрос. Почему SkGetFileSize на одном компе получает

размер файла, на другом нет? (FileHandle_ <> INVALID_HANDLE_VALUE - но почему не создает? )
GetFileSize работает нормально на тех же файлах. Delphi11, Windows - одинаковые
function SkGetFileSize(FileName: String): Int64;
var FileHandle_:hFile;tmp_:DWord;
begin
Result := -1;
try
FileHandle_:= CreateFile(PChar(FileName),
{$IFDEF VER150}GENERIC_READ or GENERIC_WRITE{$ELSE}GENERIC_ALL{$ENDIF},
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if FileHandle_ <> INVALID_HANDLE_VALUE then
begin
Result := GetFileSize(FileHandle_,@tmp_); //Windows
CloseHandle(FileHandle_);
end
else Exit;
except
end;
end;
function GetFileSize(const FilePath: TFilename): Int64; //Где-то утащено
var h: Thandle;
f: TWin32FindData;
begin
Result := -1;
h := FindFirstFile(PChar(FilePath), f);
if h = INVALID_HANDLE_VALUE then exit;
Result := Int64(f.nFileSizeLow) + f.nFileSizeHigh*High(f.nFileSizeLow);
Windows.FindClose(h);
end;

Потомуша ты пытаешся открыть файл на запись, а для определения размера файла этого не нужно. В любом случае GetLastError сначала чекни - верно лии мое предположение или нет.

Фу ты, елка )) Спасибо. Это мне в наследство досталось, теперь отгребаю

Чуть позже. Это у меня дома такое безобразие, надо дотянуться с работы

Разобралась. Действительно не было доступа. Но это потому, что хитрыми ифдефами боролись вроде против D2007. Поставила GENERIC_READ or GENERIC_WRITE и прошло Delphi {$IFDEF VER150}GENERIC_READ or GENERIC_WRITE{$ELSE}GENERIC_ALL{$ENDIF},

Фсмысле прошло? У тебя именно такая комбинация флагов и стояла и это открытие на запись :)

Вот так) См. решение 2. Там так же https://minichden.narod.ru/articles/delphi/005.htm

Ну вот решение номер два правильно написано, его и бери

Да, его и поставила. Запуталась в этих компах)

а зачем там локальные FileSizeLow, FileSizeHigh: DWORD; отчего не тривиальный ```pascal Int64Rec(FileSize).Lo := Windows.GetFileSize( FileHandle, @Int64Rec(FileSize).Hi); ``` ? Или, с порицаемым with do: with Int64Rec(FileSize) do Lo := Windows.GetFileSize( FileHandle, @Hi); ?