Советы по 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]



Содержание раздела