Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

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


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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.039 c
14-80659          --Reporter--          2002-02-09 21:35  2002.03.25  
Не подскажете, можно ли как нибудь бесплатно позвонить на обычный московский телефон через интернет?


14-80687          Ничей                 2002-02-12 16:08  2002.03.25  
О среднем поле


7-80699           Gravitator            2001-12-22 08:15  2002.03.25  
Загрузочный сектор винта


1-80628           SkyR                  2002-03-07 02:02  2002.03.25  
Такой вопросик Drag&Drop...


1-80618           hooky-mars            2002-03-08 19:36  2002.03.25  
DBNavigator