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

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

Как пользоваться функцией GetFileSize [D6, WinXP]

Страницы:   < 1 2 >

Олежек ©   (2005-06-07 17:50:00) 

Читал хелп, но там не понятно!

---

ZlDoc   (2005-06-07 18:58:00) [21]

>>xShadow ©   (07.06.05 18:21) [3]


...
Result:=S.Size;
...


Но, ИМХО, это не самый оптимальный вариант.

---

GLFox   (2005-06-07 18:50:00) [22]

Что непонятно, то? Чтобы юзать функцию, надо получить hFile.
А он получается из CreateFile (см. Win32 SDK).

---

VMcL   (2005-06-07 18:37:00) [23]

>> xShadow ©   (07.06.05 18:21) [3]

У Вас неправильный код.

---

xShadow   (2005-06-07 18:21:00) [24]

Function xGetFileSize( const FileName: String ): Int64;
var S: TSearchRec;
Begin
   FindFirst( FileName, faAnyFile, S );
   Result := ( Int64( S.FindData.nFileSizeHigh ) * MAXDWORD ) +
               Int64( S.FindData.nFileSizeLow );
   FindClose( S );
end;

---

ZlDoc   (2005-06-07 18:05:00) [25]

Открывать файл и передавать дескриптор файла GetFileSize. Или пользоваться TFileStream.

---

Gero   (2005-06-07 18:01:00) [26]

Что не понятно?

---

Страницы:   < 1 2 >

Наверх