Функция, возвращающая размер файла

← →
Переяслов Григорий © (2004-04-14 10:30) [0]

Привет всем. Подскажите, пожалуйста, функцию, которая возвращает размер файла в байтах на диске по его имени (если она есть).
FileSize использовать бы не хотелось, так как для ее использования нужно открывать файл. В справочниках не нашел. :-(

← →
Семен Сорокин © (2004-04-14 10:31) [1]

GetFileSize :)

← →
Переяслов Григорий © (2004-04-14 10:48) [2]

Вызываю таким образом. Коррекно?
hFile := FileOpen (FileName, fmOpenRead);
FileLen := GetFileSize (hFile, 0);
FileClose (hFile);

← →
stone © (2004-04-14 10:53) [3]

function GetFileSizeA(FileName: string): integer; var FHWND: THandle; begin FHWND := CreateFile(PChar(FileName), GENERIC_READ, 0, {exclusive} nil, {security} OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); try Result := GetFileSize(FHWND, nil); finally CloseHandle(FHWND); end end;

← →
Переяслов Григорий © (2004-04-14 10:56) [4]

Большое спасибо всем

with TFileStream.Create(FileName, fmOpenRead) do
begin
FileLen :=Size;
Free;
end;

hFind := FindFirstFile(FileName, wfd);
if (hFind <> INVALID_HANDLE_VALUE) then begin

FileLen := wfd.nFileSizeLow;
FindClose(hFind);
end;

Функция, возвращающая размер файла Найти похожие ветки