[R.i.m.s.k.y.]

Всем доброго времени суток.Как после распаковки архива(например srep) удалить этот архив? »

Код:

procedure RF(file:string);
begin
  Exec('cmd.exe', ' /c del /F /Q  ' + AddQuotes(file),ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
  Exec('cmd.exe', ' /c rd /F /Q  ' + '"'+file+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

RF (ExpandConstant('{app}\filetoremove.srep'))

но можно и штатной, только она почему-то иногда кобенится, поэтому я своей функцией удаляю
DeleteFile (ExpandConstant('{app}\filetoremove.srep'))