Как узнать размер файла?

[photozaz]

Подскажите, как можно узнать размер файла, я пользовался такой функцией, приведенной ниже, но возникла небольшая проблема: при определении размера файла с расширением *.iso (4,6 гб) выдает какойто левый размер, толи файл большой, толи *.iso не хочет определять... может подправить че надо..?

procedure Tform1.doit();
var

f1, f2: file of byte;
sizez: real;
begin
{$I-}
try
AssignFile (f1, Edit1.Text);
Reset(f1);
sizez:= Trunc(FileSize(f1));
if sizez<1000 then
begin
Label2.caption := FloatTostr(trunc(sizez*100)/100)+ ' bayt';
end;

if (sizez<1000000) and (sizez>=1000)  then
begin
Label2.caption := FloatTostr(trunc(sizez*100/1024)/100) + ' Kb';
end;

if (sizez<1000000000) and (sizez>1000000) then
begin
Label2.caption := FloatTostr(trunc(sizez*100/1048576)/100)+ ' Mb';
end;

if sizez>=1000000000 then
begin
Label2.caption := FloatTostr(trunc(sizez*100/1073741824)/100)+ ' Gb';
end;

CloseFile(f1);
finally;
end;

end;

[BOBAH13]

FileSize - Integer !!
WinAPI GetFileSize(HFILE, POINTER): DWORD; Думаю лимиты двух типов говорят сами за себя Юзайте Из SysUtils открытие файла кажется OpenFile далее получите Integer - хендл файла открытого далее выше указанной функцией получаите DWORD что и хранит ваш 4,6 гиг...

[B_N]

GetFileSizeEx
4.6 Gb в DWORD не влезет даже без знака.

[eoln]

Или так

function FileSize_(FName: string): int64;
var
  ff: _win32_find_dataa;
  hFind: hwnd;
begin
  hFind := FindFirstfile(pchar(FName), ff);
  if (INVALID_HANDLE_VALUE <> hFind) then
  result := ff.nFileSizeLow
end;

[B_N]

Не

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

  result := ff.nFileSizeLow

, а что-то вроде:

  result := (ff.nFileSizeHigh shl 32) + ff.nFileSizeLow