Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз
Функция, возвращающая размер файла Найти похожие ветки
← →
Переяслов Григорий © (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]Большое спасибо всем
← →
Verg © (2004-04-14 11:06) [5]with TFileStream.Create(FileName, fmOpenRead) do
begin
FileLen :=Size;
Free;
end;
← →
clickmaker © (2004-04-14 11:12) [6]hFind := FindFirstFile(FileName, wfd);
if (hFind <> INVALID_HANDLE_VALUE) then begin
FileLen := wfd.nFileSizeLow;
FindClose(hFind);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.047 c
