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

Вниз

ско-ко размер файла   Найти похожие ветки 

 
Eraser ©   (2002-03-11 09:26) [0]

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


 
Song ©   (2002-03-11 10:16) [1]

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


 
Polevi ©   (2002-03-11 11:17) [2]

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);


 
Anatoly Podgoretsky ©   (2002-03-11 21:44) [3]

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


 
Фэ ©   (2002-03-11 23:04) [4]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
14-80658
Елена
2002-02-08 12:48
2002.03.25
Не срабатывает таймер!!!


14-80665
С_тоша
2002-02-11 16:03
2002.03.25
Срочно НУЖНА ПОМОЩЬ!!!!!


1-80592
Hermit
2002-03-06 10:04
2002.03.25
Ищется дискета к книге


1-80586
zam
2002-03-10 15:04
2002.03.25
TreeView


6-80648
ShaH
2002-01-08 11:08
2002.03.25
Проблема с соединением сокетов