Код:
begin
QuarantineFile('C:\Program Files\tortoise svn\tortoisesvn.dll', '');
DeleteFile('C:\Program Files (x86)\DriverToolkit\DriverToolkit.exe', '32');
DeleteFile('C:\Program Files\tortoise svn\tortoisesvn.dll', '32');
DeleteFile('C:\Program Files\UBar\UbarDriver.sys', '32');
DeleteFile('C:\Users\Reception\AppData\Local\Microsoft\Start Menu\Вoйти в Интeрнeт.lnk');
DeleteFile('C:\Users\Reception\AppData\Local\yc\Application\yc.exe', '32');
DeleteFile('C:\Users\Reception\AppData\Roaming\curl\curl.exe', '32');
DeleteFile('C:\Users\Reception\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Вoйти в Интeрнeт.lnk');
DeleteFile('C:\Users\Reception\Desktop\Вoйти в Интeрнет.lnk');
DeleteFile('C:\Users\Reception\Favorites\Links\Интернет.url');
DeleteFile('DriverToolkit Autorun.job', '64');
DeleteFile('http:\amtomil.ru\f.exe', '32');
ExecuteFile('schtasks.exe', '/delete /TN "curl" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "curls" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "DriverToolkit Autorun" /F', 0, 15000, true);
DeleteService('UbarCalloutDriver');
DeleteFileMask('c:\program files (x86)\drivertoolkit', '*', true);
DeleteFileMask('c:\program files\tortoise svn', '*', true);
DeleteFileMask('c:\program files\ubar', '*', true);
DeleteFileMask('c:\users\reception\appdata\local\yc', '*', true);
DeleteFileMask('c:\users\reception\appdata\roaming\curl', '*', true);
DeleteDirectory('c:\program files (x86)\drivertoolkit');
DeleteDirectory('c:\program files\tortoise svn');
DeleteDirectory('c:\program files\ubar');
DeleteDirectory('c:\users\reception\appdata\local\yc');
DeleteDirectory('c:\users\reception\appdata\roaming\curl');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\ycAutoLaunch_68FD7675FBE2A4150E72CD7BBE825553', 'command');
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.
Компьютер перезагрузится.