Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
QuarantineFile('C:\Users\anna\appdata\local\google\profile\wasp.exe', '');
QuarantineFile('C:\Users\anna\appdata\local\google\profile\waspwing.exe', '');
QuarantineFile('C:\Users\anna\AppData\Roaming\Microsoft\office\dllchost.exe', '');
QuarantineFileF('c:\users\anna\appdata\local\google\profile', '*.exe', true, '', 0 , 0);
DeleteFile('C:\Program Files\Windows NT\Accessories\task.exe', '');
DeleteFile('C:\Users\anna\appdata\local\google\profile\wasp.exe', '');
DeleteFile('C:\Users\anna\appdata\local\google\profile\waspwing.exe', '');
DeleteFile('C:\Users\anna\AppData\Roaming\Microsoft\office\dllchost.exe', '32');
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Location\Location" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Maintenance\WinDAT" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\UPnP\UPnPHost" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Windows Error Reporting\Windows Error Reporting" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Wininet\Wininet" /F', 0, 15000, true);
DeleteFileMask('c:\users\anna\appdata\local\google\profile', '*', true);
DeleteDirectory('c:\users\anna\appdata\local\google\profile');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Updater');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', 'BtvStack');
ExecuteRepair(21);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(false);
end.
Компьютер перезагрузится.