Код:
begin
TerminateProcessByName('c:\program files (x86)\askpartnernetwork\toolbar\apnmcp.exe');
TerminateProcessByName('c:\program files (x86)\homepagedefender\hpdefsrv.exe');
TerminateProcessByName('C:\Program Files\Sound+\idscservice.exe');
TerminateProcessByName('c:\users\Фила\appdata\local\mail.ru\mailruupdater.exe');
TerminateProcessByName('c:\program files (x86)\mail.ru\mailruupdater\mailruupdater.exe');
TerminateProcessByName('c:\users\Фила\appdata\local\mail.ru\update service\mrupdsrv.exe');
TerminateProcessByName('c:\program files (x86)\askpartnernetwork\toolbar\updater\tbnotifier.exe');
StopService('APNMCP');
StopService('HomePageDefender Service');
StopService('Updater.Mail.Ru');
QuarantineFile('c:\program files (x86)\askpartnernetwork\toolbar\apnmcp.exe', '');
QuarantineFile('c:\program files (x86)\homepagedefender\hpdefsrv.exe', '');
QuarantineFile('C:\Program Files\Sound+\idscservice.exe', '');
QuarantineFile('c:\program files (x86)\mail.ru\mailruupdater\mailruupdater.exe', '');
QuarantineFile('c:\users\Фила\appdata\local\mail.ru\update service\mrupdsrv.exe', '');
QuarantineFile('c:\program files (x86)\askpartnernetwork\toolbar\updater\tbnotifier.exe', '');
QuarantineFile('C:\Program Files\Sound+\Sound+.exe', '');
QuarantineFile('C:\Users\Фила\AppData\Roaming\FreeVPN\FreeVPN.exe', '');
DeleteFile('c:\program files (x86)\askpartnernetwork\toolbar\apnmcp.exe', '32');
DeleteFile('c:\program files (x86)\homepagedefender\hpdefsrv.exe', '32');
DeleteFile('C:\Program Files\Sound+\idscservice.exe', '32');
DeleteFile('c:\users\Фила\appdata\local\mail.ru\mailruupdater.exe', '32');
DeleteFile('c:\program files (x86)\mail.ru\mailruupdater\mailruupdater.exe', '32');
DeleteFile('c:\users\Фила\appdata\local\mail.ru\update service\mrupdsrv.exe', '32');
DeleteFile('c:\program files (x86)\askpartnernetwork\toolbar\updater\tbnotifier.exe', '32');
DeleteFile('C:\Program Files\Sound+\Sound+.exe', '32');
DeleteFile('"C:\Program Files (x86)\AskPartnerNetwork\Toolbar\SPC-C2-5\Passport.dll"', '32');
DeleteFile('C:\Users\Фила\AppData\Roaming\FreeVPN\FreeVPN.exe', '32');
DeleteFile('C:\Users\Фила\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Mail.Ru.lnk');
DeleteService('APNMCP');
DeleteService('HomePageDefender Service');
DeleteService('Updater.Mail.Ru');
DeleteFileMask('c:\program files (x86)\askpartnernetwork', '*', true);
DeleteFileMask('c:\program files (x86)\homepagedefender', '*', true);
DeleteFileMask('c:\program files\sound+', '*', true);
DeleteFileMask('c:\users\фила\appdata\local\mail.ru', '*', true);
DeleteFileMask('c:\program files (x86)\mail.ru', '*', true);
DeleteFileMask('"c:\program files (x86)\askpartnernetwork', '*', true);
DeleteFileMask('c:\users\фила\appdata\roaming\freevpn', '*', true);
DeleteDirectory('c:\program files (x86)\askpartnernetwork');
DeleteDirectory('c:\program files (x86)\homepagedefender');
DeleteDirectory('c:\program files\sound+');
DeleteDirectory('c:\users\фила\appdata\local\mail.ru');
DeleteDirectory('c:\program files (x86)\mail.ru');
DeleteDirectory('"c:\program files (x86)\askpartnernetwork');
DeleteDirectory('c:\users\фила\appdata\roaming\freevpn');
DelBHO('{5350432D-4332-2D35-00A7-7A786E7484D7}');
ExecuteFile('schtasks.exe', '/delete /TN "MailRuUpdater" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "FreeVPN" /F', 0, 15000, true);
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'ApnTBMon');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'MailRuUpdater');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'mrupdsrv');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Sound+');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'IDSCPRODUCT');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.