wie hartnaeckige anwendung killen?

[o0o]

hi leutz,...fuer meine individuellen beduerfnisse wollte ich mal so ne art taskmanager entwickeln der mehrere task's und prozesse beendet, zb wenn ich zoggen will dass zb die firewall,antivirus,firefox,...geclosed werden per klick.

mein aktueller code:

Delphi-Quellcode:

function KillProcess(const ExeName: String): Boolean;
var
  Prozess        : TProcessEntry32;
  h              : THandle;

begin
  Result := False;
  Prozess.dwSize := SizeOf(Prozess);
  h := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
   If Process32First(h, Prozess) then
    Repeat
     If AnsiLowerCase(Prozess.szExeFile) = AnsiLowerCase(ExeName) then Result := TerminateProcess(OpenProcess(Process_Terminate, False, Prozess.th32ProcessID), 0);
    Until (Not Process32Next(h, Prozess)) or Result;
  finally
   CloseHandle(h);
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
var
   Handle: HWND;
begin
   Handle := FindWindow('avp', nil);
   if Handle <> 0 then
      SendMessage(Handle, WM_CLOSE, 0, 0);
end;

also bei dem grossteil meiner anwendungen gibt es keine probs mit dem closen, nur mein kaspersky will nich.

hat jemand vllcht eine idee wie ich soein task killen kann?^^

waere sehr ueber hilfe dankbar...da o0o