Помогите разобраться с TSearchRec

[Jupiter]

Помогите пожалуйста разобраться.

Написал программу которая должна выводить инфо о файлах.
Поиск в каталоге производится функциями FindFirst и FindNext.
Кстати, есть ли альтернативные методы поиска файлов?

Когда файл размером до 2ГБ, или около того, всё нормально, но
попался файл с размером 3*896*010*831 байт, и т.к
TSearchRec = record
Size : Integer;

то значение Size было отрицательным числом.
Я обратил внимание на
TSearchRec = record
FindData: TWin32FindData

оказалось что значение TSearchRec.Size берётся из
TSearchRec.FindData.NFileSizeLow : DWORD;

Тогда в своей программе я просто начал писать не
FileSize := TSearchRec.Size;
а
FileSize := TSearchRec.FindData.NFileSizeLow;

теперь значение 3896010831 отображается правильно.

Далее попался "*.MDF" Архив (Образ диска).
Его размер- 4*655*677*440 байт, это значение выходит за диапазон
допустимых значений LongWord, и в переменной TSearchRec.FindData.NFileSizeLow
теперь тоже неправильное значение.
Вместо 4 655 677 440 байт там 360 710 144 байт.

Можно ли как то получить правильный размер файла из TSearchRec, не обращаясь
к другим функциям?

Кстати TSearchRec.FindData.NFileSizeHigh при малых размерах файла = 0.
А в случае с 4*655*677*440 байт = 1.
Может здесь нужно учитывать и это значение?.
И если нужно, то каким образом?

Заранее спасибо.

[Квэнди]

Попробуйте GetFileSizeEx

[Stilet]

Цитирую http://api.farmanager.com/ru/winapi/...find_data.html

nFileSizeHigh
Старшее двойное слово 64-х разрядного размера файла в байтах. Размер файла равен (nFileSizeHigh * (1+MAXDWORD)) + nFileSizeLow.
nFileSizeLow
Младшее двойное слово размера файла в байтах.

[Jupiter]

Спасибо. Попробую.

А где лучше держать результат? В Int64?

[Stilet]

Ну если там держать получится, держи там...

[Jupiter]

Сообщение от Stilet

Цитирую http://api.farmanager.com/ru/winapi/...find_data.html

Когда я так написал- компилятор не захотел компилировать.
выдал: "Overflow in conversion or arithmetic operation"

похоже что ошибка здесь (1+MAXDWORD).
так и должно быть?
Может у меня что- то неправильно настроено?

Немного по экспериментировав, написал два рабочих способа.

Function oooooo : Int64;
Var
SR : TSearchRec;

begin

{ Код........}

// 1- й вариант
Result :=
MAXDWORD;
Result :=
SR.FindData.nFileSizeHigh *
(Result + 1) +
SR.FindData.nFileSizeLow;

// 2- й вариант
Result :=
SR.FindData.nFileSizeHigh;
Result :=
(Result shl 32) xor
SR.FindData.nFileSizeLow;

Какой из этих вариантов лучше использовать?