关闭指定的程序问题

Question

//==============================================================================
//强制终止某应用程序运行********************************************************
//==============================================================================
procedure AppForceExit(const AppName: string);
var lppe: TProcessEntry32;
    ssHandle: THandle;
    Wnd: HWND;
    AppFound: Boolean;
begin
  ssHandle := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
  AppFound := Process32First(sshandle, lppe);
  while AppFound do
  begin
    //其中lppe.szExefile就是程序名**********************************************
    if UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase(AppName) then
    begin
      Wnd := OpenProcess(PROCESS_ALL_ACCESS, true, lppe.th32ProcessID);
      TerminateProcess(Wnd, 0);
    end;
    AppFound := Process32Next(ssHandle, lppe);
  end;
end;

Answer 1

example://~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm_Main.Button18Click(Sender: TObject);
begin
  case (Sender as TButton).Tag of
    0: ShellExecute(Handle, 'Open', PChar('ping.exe'), PChar('192.168.1.11 -t'), nil, SW_SHOWNORMAL);
    1: AppForceExit('ping.exe');
  end;
  (Sender as TButton).Tag := (Sender as TButton).Tag xor 1;
end;