Код:
begin
QuarantineFile('C:\ProgramData\Microsoft\Adobe\Flash Player\9DE08B86-850D-421F-A84E-3C9C53BA4926\4A1E98A8-EC13-4603-80AF-9D1F472019F8.exe', '');
QuarantineFile('C:\ProgramData\KRB Updater Utility\krbupdater.exe', '');
QuarantineFile('C:\Users\Пользователь\AppData\Local\Microsoft\Extensions\extsetup.exe', '');
DeleteFile('C:\ProgramData\Microsoft\Adobe\Flash Player\9DE08B86-850D-421F-A84E-3C9C53BA4926\4A1E98A8-EC13-4603-80AF-9D1F472019F8.exe', '32');
DeleteFile('C:\ProgramData\KRB Updater Utility\krbupdater.exe', '32');
DeleteFile('C:\Users\Пользователь\AppData\Local\Microsoft\Extensions\extsetup.exe', '32');
DeleteFileMask('c:\programdata\microsoft\adobe', '*', true);
DeleteFileMask('c:\programdata\krb updater utility', '*', true);
DeleteFileMask('c:\users\пользователь\appdata\local\microsoft\extensions', '*', true);
DeleteDirectory('c:\programdata\microsoft\adobe');
DeleteDirectory('c:\programdata\krb updater utility');
ExecuteFile('schtasks.exe', '/delete /TN "extsetup" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "SafeBrowser" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "A9DE08B86-850D-421F-A84E-3C9C53BA4926" /F', 0, 15000, true);
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', '9DE08B86-850D-421F-A84E-3C9C53BA4926');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', 'KRB Updater Utility');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', 'SafeBrowser');
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);
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.