如何结束一个Windows正在运行的进程

Question

如题

Answer 1

//强制终止某应用程序运行********************************************************
//==============================================================================
procedure AppForceExit(const AppName: string);
var lppe: TProcessEntry32;
    ssHandle: THandle;
    AppFound: Boolean;
    Wnd: HWND;
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;