Определение размера открытого файла

Posted by Chas under Топик-обзор

Такая вот нужда Определить размер открытого файла, например: определение размера работающего скомпилированного файла проекта.

При использовании функции гетфайлсайз или просто файлсайз вылетают ошибки и ответа нет.
Прошу помощи!

Serge_Bliznykov:

function SizeFile(s: string): int64;

var

  SearchRec : _WIN32_FIND_DATAA;

begin

  if FileExists(s) then begin

      FindFirstFile(pchar(s), SearchRec);

      result := SearchRec.nFileSizeHigh;

      result := result shl 32;

      result := result + SearchRec.nFileSizeLow

  end

  else

    result := -1;

end;

или, можно так:

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;

ну и для преобразования int64 -> строку:

function Int64ToStr(i64: int64): string;

begin

  str(i64, result)

end;

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

Похожие статьи

• Синтезатор на Delphi
• можно ли как то открыть файл в одной программе два раза сразу?
• Сохранение и чтение файла в StringGrid
• Получить размер файла
• Копирование файлов в делфи
• Как проверить существует ли файл?
• Как можно узнать контрольную сумму файла?
• Дерево жесткого диска в StringList
• Получить список файлов и время создания файла в ListView
• Как открыть файл в Memo используя OpenDialog?