function  CreateInfectedArchive

function  CreateInfectedArchive(AFileName : string) : boolean;

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

Пример:

begin

 // Создание архива c содержимым папки Infected

 CreateInfectedArchive(GetAVZDirectory+'infected.zip');

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

 ExecuteAutoQuarantine;

end.