Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

4th
Окт

Узнать размер файла с помощью delphi если он больше 4гб

Posted by Chas under Delphi

Подскажите, может кто нибудь тоже сталкнулся с такой проблемой? Как работать с файлом в Delphi7 стандартными средствами, если его размер более 4Гб. Размер файла выдается неверно через FileSeek() и через FindNext() при поиске.
Пробовал корректировать процедуры системных модулей Delphi, но к положительному результату это так и не привело. У меня Windows XP SP3.

Stilet
Пример:

uses   windows,

  SysUtils;

var sr:TSearchRec; c:Cardinal;

begin

 FindFirst('i:\Операционки\Fin.vdi',faAnyFile,sr);

 c:=sr.FindData.nFileSizeHigh*MAXDWORD+sr.FindData.nFileSizeLow;

 writeln(c);

 readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Описание

nFileSizeHigh

Specifies the high-order DWORD value of the file size, in bytes. This value is zero unless the file size is greater than MAXDWORD. The size of the file is equal to (
nFileSizeHigh * MAXDWORD) + nFileSizeLow.

nFileSizeLow

Specifies the low-order DWORD value of the file size, in bytes.

для WIN32_FIND_DATA

тема на форуме