Неверный размер

[newuserim]

Здравствуйте!

есть такой код:

procedure TForm1.Button3Click(Sender: TObject);
var
D1:TFileStream;
i:Int64;
begin
D1 := TFileStream.Create(PChar('\\.\PHYSI CALDRIVE1' + tmp), fmOpenRead); //такой в системе есть размером 1 терабайт
mmo1.Lines.Add(IntToStr(D1.Size));
D1.Free;
end;

Данный код возвращает размер 4294967295. Подскажите, как получит размер больших потоков/файлов?
Спасибо.

[p51x]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Serge_Bliznykov]

каюсь, не смотрел ссылочку p51x (наверняка там правильное решение, я уверен в его квалификации и опыте).

Но, ещё, такие вопросы на форуме неоднократно поднимались.
возможно, Вам будет полезно посмотреть примеры кода на форуме ТУТ