lppe.dwSize := SizeOf(lppe);
 hSnapShot := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
 try
   if Process32First(hSnapShot, lppe) then
     while Process32Next(hSnapShot, lppe) do
       if ANSIUpperCase(lppe.szExeFile) = ANSIUpperCase(pName) then
         Win32Check(TerminateProcess(lppe.th32ProcessID, 0));
 finally
   CloseHandle(hSnapShot);
 end;