| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ско-ко размер файла [D5]

Eraser ©   (2002-03-11 09:26:00) 

Люди добрые. Вот надобно вывести в лабел размер файла. Есть такая функция FileSize, но с ней необходимо открыввать файл. Есть GetFileSize но про нее в хелпе такой мизер написан, что сколько не пробовал не получается.

---

Фэ   (2002-03-11 23:04:00) [1]

Явного не потребует, но неявно все равно откроет, выполнив API функцию:
..
Handle := FindFirstFile(PChar(Path), FindData);
..

---

Anatoly Podgoretsky   (2002-03-11 21:44:00) [2]

Eraser © (11.03.02 09:26)
Но GetFileSize тоже требует открытия файла, а вот FindFirst нет

---

Polevi   (2002-03-11 11:17:00) [3]

var
fHandle:THANDLE;
FileSize,FileSizeHigh:Cardinal;
begin
fHandle:=CreateFile(PChar(FileName),GENERIC_READ or GENERIC_WRITE,
0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if fHandle<>INVALID_HANDLE_VALUE then
begin
FileSize:=GetFileSize(fHandle,@FileSizeHigh);

---

Song   (2002-03-11 10:16:00) [4]

Поищи файл через FindFirst и из TSearchRec вытащи нужное тебе число.

---

Наверх