как программно определить размер файла более 2 гб

[VIR1435]

Доброго времени суток!
Подскажите как можно программно определитьразмерфайла более 2гб

[Миша]

var

  F: file;
begin
  if OpenDialog1.Execute then
begin
    AssignFile(F, OpenDialog1.FileName);
    Label1.Caption:=IntToStr(FileSize(F);
end;

[Kotofff]

Одна из самых быстрых и простых (размер будет в байтах) :

function GetFileSize(FileName: String): Integer;
var
  FS:TFileStream;
begin
  try
    FS := TFileStream.Create(Filename, fmOpenRead);
  except
    Result := -1;
  end;
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

[VIR1435]

Kotofff этот метод я занаю но у меня он неправильно определяет размер файла

Вот этим методом у меня фаил размером 10 гб получается 1189 мб

[raxp]

ммм ... не забываем за 4 гига однако...

function GetFileSize2(namefile: string): Int64;
var InfoFile: TSearchRec;
    AttrFile: Integer;
    Error: Integer;
begin
 AttrFile := $0000003F; // Any file
 Error    := FindFirst(namefile, AttrFile, InfoFile);
 if Error <> 0 then result := -1
  else begin
   Result := InfoFile.FindData.nFileSizeHigh;
   Result := Result shl 32;
   Result := Result or InfoFile.FindData.nFileSizeLow
  end;
 FindClose(InfoFile)
end;

проверено неоднократно на iso образах


upd
-------
метод Kotofff-а тоже определяет, тип result поставьте int64, делов-то.

[VIR1435]

raxp Спасибо что про int64 сказал
у меня оказалось что переменная в которую присваевается размер была не int64 а integer

ВСЕМ СПАСИБО

[postal2]

Так и в коде, который предложил Kotofff можно на выход поставить не integer, а int64 и будет всё ok