| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Размер файла [D5, Win95/98]
Rammst © (2002-04-09 06:38:00)Привет Мастера! Кто может подсказать как определить размер файла.
Anatoly Podgoretsky (2002-04-09 11:28:00) [1]Rammst (09.04.02 07:04)
А ты не говори, что текстовый
Rammst (2002-04-09 07:27:00) [2]СПАСИБО!!!
NLO (2002-04-09 07:26:00) [3]Нужно подключить модуль 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;
MBo (2002-04-09 07:18:00) [4]FindFirst, SearchRec.Size
Rammst (2002-04-09 07:04:00) [5]А что если текстовый?
MBo (2002-04-09 06:48:00) [6]если не текстовый, то пойдет буквальный перевод - FileSize
FindFirst можно, GetFileSize
| |
