Сканирование и отправка результатов по почте

Постановка задачи:

Необходимо выполнить сканирование диска C: компьютера, после чего отправить на указанный адрес письмо, содержащее протокол сканирования, результаты исследования системы и файлы, помещенные в карантин.

begin

 // Разрешить использовать карантин

 SetupAVZ('UseQuarantine=Y'); 

 // Сканировать диск C

 SetupAVZ('Scan=C:\'); 

 // Запуск сканирования

 RunScan;

 // Выполнение исследования системы  

 ExecuteSysCheck(GetAVZDirectory + 'syscheck.htm');

 // Сохранение архива с файлами карантина

 CreateQurantineArchive(GetAVZDirectory+'quarantine.zip');

 // Отправка письма

 SendEmailMessage('mail.my_mail_server.ru', 'AVZ', 'my_mail@mail.ru',

                 'AVZ email alert',

                 'Report from computer "' + GetComputerName + '" '+#13 +

                 'SuspCount = ' + InttoStr(GetSuspCount) + #13 +

                 'DetectedCount = ' + InttoStr(GetDetectedCount) ,

                 false, '', '',

                 GetAVZDirectory + 'syscheck.zip', 

                 GetAVZDirectory + 'quarantine.zip',

                 ''

                 );

 // Выход из AVZ

 ExitAVZ;

end.

В данном примере исследование системы производится после сканирования, поэтому в протокол исследования включается протокол сканирования.