Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
ClearQuarantineEx(true);
QuarantineFile('C:\iexplore.bat','');
QuarantineFile('C:\Users\Serg\AppData\TradeChatLauncher.bat','');
QuarantineFile('C:\Users\Serg\AppData\Local\vk.bat','');
QuarantineFile('C:\Users\Serg\AppData\Local\ok.bat','');
QuarantineFile('C:\Users\Serg\AppData\Local\amigo.bat','');
QuarantineFile('C:\Users\Serg\AppData\Local\Yandex\browser.bat','');
QuarantineFile('C:\Dospet Launcher.bat','');
DeleteFile('C:\Users\Serg\AppData\Local\Yandex\browser.bat','32');
DeleteFile('C:\Users\Serg\AppData\Local\amigo.bat','32');
DeleteFile('C:\Users\Serg\AppData\Local\ok.bat','32');
DeleteFile('C:\Users\Serg\AppData\Local\vk.bat','32');
DeleteFile('C:\Users\Serg\AppData\TradeChatLauncher.bat','32');
DeleteFile('C:\iexplore.bat','32');
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
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\', '2201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('TSW',2,2,true);
ExecuteWizard('SCU', 2, 3, true);
RebootWindows(true);
end.