Delphi分析清除流氓软件的源码-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝30
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:242回复:0

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

楼主#
更多 发布于:2016-06-07 22:59

 此款源码
功能不少,我们下载后要
逐渐的体会其间的代码 。下图是编译好的程序:


归纳


铲除流氓软件的源码
归纳其间的
结束
进程函数,原型:
iPhone怎样显现准确的信号数值水平进步7步走 深度解读啥才叫好的人像
怎样增加SEO效果的3个做法拍摄师7个拍照经历 帮助你打破拍摄瓶颈
以下是代码片段:
procedure TForm1.EndProcess(AFileName: string);
通知你iOS5不易被发现的功用怎样远离安卓歹意软件
网站简略有用的SEO优化窍门怎样远离安卓歹意软件
const
PROCESS_TERMINATE = $0001;
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
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;
此款源码
功能不少,我们下载后要
逐渐的体会其间的代码 。下图是编译好的程序:


归纳


铲除流氓软件的源码
src="http://img1.2345.com/duoteimg/techImg/201104/duote_06_15-08-55.jpg">
归纳其间的
结束
进程函数,原型:
以下是代码片段:
procedure TForm1.EndProcess(AFileName: string);
const
PROCESS_TERMINATE = $0001;
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
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;








优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。
Delphi教程视频


优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客