Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

Помогите   Найти похожие ветки 

 
Stupid   (2002-03-27 17:55) [0]

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


 
SPeller ©   (2002-03-27 18:16) [1]

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;


 
MAxiMum ©   (2002-03-27 18:17) [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 бита. Вот!


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

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



Страницы: 1 вся ветка

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
4-88676
SergeyM
2002-03-24 12:34
2002.05.27
WinAPI


1-88526
jonik pegas
2002-05-16 09:01
2002.05.27
Создание компонентов из потока


1-88461
Ironwit
2002-05-17 16:51
2002.05.27
как получить размер символов в пискелях


3-88387
Юляша
2002-05-03 16:22
2002.05.27
Элементы управления в ячейках DBGrid


6-88581
ProgXP
2002-03-11 13:39
2002.05.27
Хочу написать свой firewall !!!