procedure TerminateProcess(const MainName: string);
var
  H: THandle;
  ProcessId: Cardinal;
begin
  H := FindWindow(PChar(MainName), nil);
  if H <> 0 then
  begin
    GetWindowThreadProcessId(H, ProcessId);
    Windows.TerminateProcess(OpenProcess(PROCESS_ALL_ACCESS, false, ProcessId), 0);
  end;
end;