Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 02.05.2010, 09:56   #1
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию Процедура для извлечения ресурса

Как сделать, чтобы если уже извлечено, то пропустить извлечение

Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 // Записывает в текущую папку arj.exe
 ExtractRes('EXEFILE', 'ARJ', 'ARJ.EXE');
end;
foxes вне форума Ответить с цитированием
Старый 02.05.2010, 11:08   #2
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

FileExists
BOBAH13 вне форума Ответить с цитированием
Старый 02.05.2010, 18:36   #3
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию

А можно чуть подробнее я не сильно разбираюсь, только учусь

Код:
   if  FileExists('raddrv')  then
ExtractRes('dllFILE', 'raddrv','raddrv.dll');
Что-то я делаю не так подскажите
foxes вне форума Ответить с цитированием
Старый 02.05.2010, 19:02   #4
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,455
По умолчанию

у тебя получается:
Код:
   if  FileExists('raddrv')  then //если существует
ExtractRes('dllFILE', 'raddrv','raddrv.dll'); //то извлекаем..
надо так:
Код:
   if not FileExists('raddrv')  then //если что-то не существует
ExtractRes('dllFILE', 'raddrv','raddrv.dll'); //значит извлекаем...
Человек_Борща вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Простейшая процедура для отправки на мыло Alex88888 Компоненты Delphi 8 24.05.2010 14:47
Автоматическое извлечения архива .rar zenner Помощь студентам 5 22.02.2010 14:04
процедура на VBA для анализа Tan'ka Microsoft Office Access 10 23.12.2009 11:33
Процедура для вычисления ctg(x) Obender13 Помощь студентам 1 23.11.2009 20:47
Процедура для считывания значений переменных xPAL Общие вопросы Delphi 4 07.12.2008 19:23


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840