Код:
begin
TerminateProcessByName('c:\programdata\macromedia\flash player\macromedia.com\support\flashplayer\sys\errorcheck.exe');
QuarantineFile('C:\ProgramData\Macromedia\Flash Player\macromedia.com\support\flashplayer\sys\attrib.tmp', '');
QuarantineFile('c:\programdata\macromedia\flash player\macromedia.com\support\flashplayer\sys\errorcheck.exe', '');
QuarantineFile('c:\windows\debug\item.dat', '');
QuarantineFile('c:\windows\debug\ok.dat', '');
QuarantineFile('C:\WINDOWS\mssecsvc.exe', '');
DeleteFile('C:\Program Files (x86)\Common Files\Java\Java Update\jusched.exe', '32');
DeleteFile('C:\ProgramData\Macromedia\Flash Player\macromedia.com\support\flashplayer\sys\attrib.tmp', '32');
DeleteFile('c:\programdata\macromedia\flash player\macromedia.com\support\flashplayer\sys\errorcheck.exe', '32');
DeleteFile('c:\windows\debug\item.dat', '32');
DeleteFile('c:\windows\debug\ok.dat', '32');
DeleteFile('C:\WINDOWS\mssecsvc.exe', '32');
ExecuteFile('schtasks.exe', '/delete /TN "Macromedia\ErrorCheck" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Mysa1" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Mysa2" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Mysa3" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "ok" /F', 0, 15000, true);
DeleteService('mssecsvc2.0');
DeleteFileMask('c:\programdata\macromedia\flash player\macromedia.com\support\flashplayer\sys', '*', false);
DeleteDirectory('c:\programdata\macromedia\flash player\macromedia.com\support\flashplayer\sys');
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1001', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1004', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.