Среда, 23.05.2018, 21:43 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: 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 из 1
  • 1
Поиск:

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