Windows 7 функция GetFileSize

[DarkEvil]

Доброе время суток!!!
Пришлось проверить работоспособность программы под Windows 7
И появилась довольно интересная проблема )))

точный размер файла = 1*263*612 байт

GetFileSize(FileHandle, nil) показывает 4*294*967*295

Может они что-то поменяли ?



============================

Собственно проблема появляется только если функция используется в библиотеке(dll)
в самой программе все отлично работает, хотя как бы и библиотека в XP работала...

function bOpenFile(FileName: PAnsiChar): Boolean;
begin
  bHandle := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  if bHandle <> 0 then
    Result := true
  else
    Result := false;
end;

function bGetRecCount(): Cardinal;
begin
  // Вот здесь GetFileSize возвращает ноль или еще что-нибуть но совсем не то что нужно
  Result := GetFileSize(bHandle, nil) div bBlockSize;
end;

[mihali4]

Файлы записываются кластерами. Кластер имеет фиксировнный размер.
Так что не удивляйтесь, если файл с реальным размером в 128 байт в файловой системе даст вам размер 4096 байт...

[DarkEvil]

Ну про кластера мы знаем, но тогда вопрос как узнать реальный размер файла? а не занимаемое им место...
собственно в вин ХП такой код работает...

=================================== ===========

Все проблемма решена.