Код:
begin
DeleteFile('C:\Program Files (x86)\Mail.Ru\Update Service\mrupdsrv.exe', '32');
DeleteFile('C:\Users\1\AppData\Local\Mail.Ru\Sputnik\ptls\mailruhomesearch.exe', '32');
DeleteFile('C:\Users\1\AppData\Local\Amigo\Application\amigo.exe', '32');
DeleteFile('C:\Users\1\AppData\Local\Mail.Ru\MailRuUpdater.exe', '32');
DeleteFile('C:\Users\1\AppData\Local\PowerMonitor\PowerMonitor.exe', '32');
DeleteFile('C:\Program Files (x86)\ScreenUp\future_helper.exe', '32');
DeleteFile('C:\Users\1\AppData\Local\FilterStart\FilterStart.exe', '32');
DeleteService('ZuneNetworkSvc');
DeleteService('WMZuneComm');
DeleteService('mrupdsrv');
DeleteFileMask('c:\program files (x86)\mail.ru', '*', true);
DeleteFileMask('c:\users\1\appdata\local\mail.ru', '*', true);
DeleteFileMask('c:\users\1\appdata\local\amigo', '*', true);
DeleteFileMask('c:\users\1\appdata\local\powermonitor', '*', true);
DeleteFileMask('c:\program files (x86)\screenup', '*', true);
DeleteFileMask('c:\users\1\appdata\local\filterstart', '*', true);
DeleteDirectory('c:\program files (x86)\mail.ru');
DeleteDirectory('c:\users\1\appdata\local\mail.ru');
DeleteDirectory('c:\users\1\appdata\local\amigo');
DeleteDirectory('c:\users\1\appdata\local\powermonitor');
DeleteDirectory('c:\program files (x86)\screenup');
DeleteDirectory('c:\users\1\appdata\local\filterstart');
ExecuteFile('schtasks.exe', '/delete /TN "MailRuUpdater" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "PowerMonitor" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Root System Helper" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Translator Additional Manager" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Language Current Helper" /F', 0, 15000, true);
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'mailruhomesearch');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'pursvzlexw');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'DLLSuite2016');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.