-
-
[注意]360误报，可怜的delphi
-
发表于:
2010-3-16 10:57
13215
-
最近用delphi编写一个小工具，用到了正常获取进程列表的单元TlHelp32 ,结果梦魇至此开始，老报 DeepScan:Generic.Malware.P!.xxxx 毒！ 刚巧的是delph7 lite 7.33在我的电脑老是安装不上，结果我做了n遍xp系统，安装了n次delphi7 lite ，就是不愿相信，一段很正常的代码怎么会被360杀毒盯上？ 今天传到在线杀毒网站，结果只有BitDefender与CP Secure报毒，其他30多个杀毒引擎都报正常(360用BitDefender引擎？)！ 无奈，只有发到这里，以引起类似问题的注意！ 下面是一个获取进程的函数！ 你可以用delphi调用看看，准报毒！
Function GetProcessList():string;
var
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
ContinueLoop : Boolean;
sFoundProcesses: String;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
sFoundProcesses := '';
while ContinueLoop do
begin
sFoundProcesses := sFoundProcesses+ExtractFilename(
FProcessEntry32 .szExeFile)+'^'+inttostr(FProcessEntry32.th32ProcessID)+#13#10;
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
if (Length(sFoundProcesses) > 0) then
Result := Copy(sFoundProcesses,1,length(sFoundProcesses)-2);
CloseHandle(FSnapshotHandle);
end;
注意红色部分，只要屏蔽了这个，就正常了！唉。。。。 可怜的delphi!!!!!
[课程]FART 脱壳王！加量不加价！FART作者讲授！
