Советы по Delphi
Функция определения размера любого файла
Своим опытом делится Slava Kostin:
|
{Стандартная функция Delphi FileSize не может быть использована для определения размера текстовых файлов. Данная функция определяет размер любых файлов посредством вызова соответствующих фукнций WinAPI. Для использования должен быть дключен модуль Windows (uses Windows)} function AnyFileSize(FileName: PChar): LongWord; var hFile: THandle; begin hFile := CreateFile(FileName, GENERIC_READ, FILE_SHARE_READ + FILE_SHARE_WRITE, Nil, OPEN_EXISTING, 0, 0); //Попытка получить размер файла: Result := GetFileSize(hFile, Nil); CloseHandle(hFile); //Возоможно, произошла ошибка... if Result = $FFFFFFFF then begin //Произошла ошибка - возвращаем нулевой размер Result := 0; Exit; end; end; |
[001893]
