Процедура для извлечения ресурса

[foxes]

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 // Записывает в текущую папку arj.exe
 ExtractRes('EXEFILE', 'ARJ', 'ARJ.EXE');
end;

[BOBAH13]

FileExists

[foxes]

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

   if  FileExists('raddrv')  then
ExtractRes('dllFILE', 'raddrv','raddrv.dll');

Что-то я делаю не так подскажите

[Человек_Борща]

у тебя получается:

   if  FileExists('raddrv')  then //если существует
ExtractRes('dllFILE', 'raddrv','raddrv.dll'); //то извлекаем..

надо так:

   if not FileExists('raddrv')  then //если что-то не существует
ExtractRes('dllFILE', 'raddrv','raddrv.dll'); //значит извлекаем...