Четверг, 24.08.2017, 07:44 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » Размер файла
Размер файла
MyipsДата: Понедельник, 17.10.2011, 21:48 | Сообщение # 1
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
Всем привет, как узнать размер файла и если размер файла больше чем "F" , то выполнить условие?
 
gravitasДата: Вторник, 18.10.2011, 06:47 | Сообщение # 2
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Code

function GetFileSize_a(FileName: string) : string;
var
H: THandle;
begin
H:=CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, 0);
Result:=GetFileSize(H, @Result);
end;

if GetFileSize_a('1.exe') > [F] then
   ...


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
delfcode » Delphi » Вопросы по Delphi » Размер файла
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz