Код:
begin
DeleteFile('C:\Program Files (x86)\DllKitPRO\dllkitpro.exe', '32');
DeleteFile('C:\Program Files (x86)\DriverPack Notifier\DriverPackNotifier.exe', '32');
DeleteFile('C:\Users\Artem\AppData\Local\Microsoft\Start Menu\Вoйти в Интeрнeт.lnk');
DeleteFile('C:\Users\Artem\AppData\Local\wupdate\wupdate.exe', '32');
DeleteFile('C:\Users\Artem\AppData\Roaming\curl\curl.exe', '32');
DeleteFile('C:\Users\Artem\AppData\Roaming\curl\curl_7_54.exe', '32');
DeleteFile('C:\Users\Artem\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Вoйти в Интeрнeт.lnk');
DeleteFile('C:\Users\Artem\Favorites\Links\Интернет.url');
ExecuteFile('ipconfig.exe', '/flushdns', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "curl" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "DllKitPRO" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Doctor Web\Dr.Web Daily scan" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "DriverPack Notifier" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "wupdate" /F', 0, 15000, true);
DeleteService('IMFDownProtect');
DeleteService('IMFFilter');
DeleteService('IMFForceDelete');
DeleteService('RegFilter');
DeleteFileMask('c:\program files (x86)\dllkitpro', '*', true);
DeleteFileMask('c:\program files (x86)\driverpack notifier', '*', true);
DeleteFileMask('c:\users\artem\appdata\local\wupdate', '*', true);
DeleteFileMask('c:\users\artem\appdata\roaming\curl', '*', true);
DeleteDirectory('c:\program files (x86)\dllkitpro');
DeleteDirectory('c:\program files (x86)\driverpack notifier');
DeleteDirectory('c:\users\artem\appdata\local\wupdate');
DeleteDirectory('c:\users\artem\appdata\roaming\curl');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\DriverPack Notifier', '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);
ExecuteSysClean;
ExecuteRepair(9);
ExecuteRepair(21);
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.