Форум: "Основная";
Текущий архив: 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);
..
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c