上面是给窗体发关闭消息,但不一定能强行杀进程,下面是直接关:
var
f1,f2,f3:longint;
begin
f1:=findwindow(pchar('RavMonClass'),pchar('RavMon.exe'));//得到瑞星窗体
GetWindowThreadProcessId(f1, @f2); //得到进程句柄
f3:=OpenProcess(PROCESS_ALL_ACCESS,true,f2); //以最高权限打开
TerminateProcess(f3,0); //关闭
end;