[mj]

function  KillProc(const ClassName:AnsiString):Boolean;

 {Terminates the first process with the given window class.  Window class is
  fixed whereas Window title can change.

  Example: KillProc('NOTEPAD') unconditionally terminates Windows Notepad if
           it is running. }
var
 hWnd,hProc:THandle;
 pid:DWORD;
begin
 Result:=False;
 hWnd := FindWindow(PCHAR(ClassName),nil);
 if IsWindow(hWnd) then begin
   GetWindowThreadProcessId(hWnd, @pid);
   hproc := OpenProcess(PROCESS_TERMINATE, FALSE, pid);
   if hproc<>0 then begin
     Result:=TerminateProcess(hProc,0);
     if Result then CloseHandle(hProc);
   end;
 end;
end;