Delphi分析清除流氓软件的源码

　　此款源码 性能不少，大家下载后要 渐渐的体验其中的代码 。下图是编译好的程序：

　　 综合其中的 完毕 历程函数，原型：

以下是代码片段： procedure TForm1.EndProcess(AFileName: string); const PROCESS_TERMINATE = $0001; 我给新加坡华人送外卖，一趟5000块 win7中浏览器的Internet选项打不开的解决方法 不花冤枉钱！C盘满了怎么办？这几个小妙招帮你解决 从15到55英寸 到底多大的显示器适合你？ var ContinueLoop: BOOL; FSnapShotHandle: THandle; FProcessEntry32: TProcessEntry32; KillHandle: THandle;//用于杀死 历程 人脸识别被破解，手机里的钱还安全吗 苹果手机打车更贵？复旦大学调研实锤，滴滴司机点明原因！ 电脑虚拟内存是什么？该如何设置？ 专业用户之选 从棚拍到风光 富士中画幅相机推荐 begin FSnapShotHandle := CreateToolhelp32SnapShot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin 还在用QQ、微信快捷截图吗？试试win10自带截图，马上爱不释手 网速总是太慢？路由器可不为你背这个锅！ 高画质全能表现 全画幅微单相机选购攻略 免费获得正版Windows 10的方法，亲测可行 if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=UpperCase(AFileName)) or (UpperCase(FProcessEntry32.szExeFile )=UpperCase(AFileName))) then begin KillHandle := OpenProcess(PROCESS_TERMINATE, False, FProcessEntry32.th32ProcessID); TerminateProcess(KillHandle, 0);//强制关闭 历程 CloseHandle(KillHandle); exit; end; ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; end;