function  CreateQurantineArchive

function  CreateQurantineArchive(AFileName : string) : boolean;

Функция создает архив с файлами, помещенными сегодня в папку карантина (т.е. берутся все файлы из папки Infected, соответствующей текущей дате). Архив имеет ZIP формат, пароль - virus. Если указанная в параметре AFileName папка не существует, то перед сохранением архива делается попытка создать ее.

Пример:

begin

 // Очистка карантина

 ClearQuarantine;

 // Автокарантин

 ExecuteAutoQuarantine;

 // Создание архива с файлами, помещенными в карантин

 CreateQurantineArchive(GetAVZDirectory+'quarantine.zip');

end.