AOL ASSASSINÉ

  var
      dwProcessId: DWORD;
      HandleProcess:THandle;
  begin
     GetWindowThreadProcessId(FindWindow('AOL Frame25',nil),@dwProcessId);
        if dwProcessId<>0 then
         begin
   {Obtention du Handle du process à partir de l'identifiant du thread
                (dwProcessId)         }
       HandleProcess:=OpenProcess(PROCESS_TERMINATE,False,dwProcessId);

    {Arrêt du process désigné par HandleProcess.
     Tous ses threads sont également arrétés.}
               TerminateProcess(HandleProcess,0);
     end;