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

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

Помогите

Stupid ©   (2002-03-27 17:55:00) 

Помогите мне с функцией ВинАпи GetFileSize, я не пойму как ее использовать. К примеру мне нужно узнать рамер файла с:\myfile.txt и поместить его размер в memo. За ранее всем спасибо!

---

Stupid not   (2002-03-27 22:05:00) [1]

СПАСИБО ВСЕМ :)

---

MAxiMum   (2002-03-27 18:17:00) [2]

Извини, но на счёт ника это в тему. :)) Не обижайся.
В хелпе написано: DWORD GetFileSize(
HANDLE hFile, // handle of file to get size of
LPDWORD lpFileSizeHigh // address of high-order word for file size
);
То есть lpFileSizeHigh- старшее слово, а возвращает младшее слово. Данная функция позволяет определять размер файлов до 4 Гбайт. Т.е. если заранее известно, что размер файла < 2Г, то можно просто смотреть на результат функции. Иначе, нужно ещё приписать туда и lpFileSizeHigh, притом сдвинутое на 32 бита. Вот!

---

SPeller   (2002-03-27 18:16:00) [3]

procedure TForm1.FormClick(Sender: TObject);
var hFile,tm:longint;ofs:_ofstruct;
begin
ofs.cBytes:=sizeof(ofs);
hFile:=OpenFile("C:\MyFile.txt",ofs,OF_READ);
if hFile>0 then
Label1.Caption:=inttostr(getfilesize(hfile,@tm));
CloseHandle(hFile);
end;

---

Наверх