請問如何強制結束其它程序的進程?

Question

如題.............

Answer 1

Function KillProcess(TheProcName:String):boolean;
var  
  isOK:Boolean;
  ProcessHandle:Thandle;
  ProcessStruct:TProcessEntry32;
    Function KillProcessID(ProcessID:Cardinal):boolean;
    var
      H:THandle;
    begin
      H:=OpenProcess(Process_All_Access, true,ProcessID);
      Result:=TerminateProcess(H,0);
    end;
begin
   ProcessHandle:=createtoolhelp32snapshot(Th32cs_snapprocess,0);
   processStruct.dwSize:=sizeof(ProcessStruct);
   isOK:=process32first(ProcessHandle,ProcessStruct);
   while isOK do
   begin
    if TheProcName=ProcessStruct.szExeFile then
     begin
       Result:=KillProcessID(ProcessStruct.th32ProcessID);
       CloseHandle(ProcessHandle);
       exit;
     end;
   isOK:=process32next(ProcessHandle,ProcessStruct);
   end;
   CloseHandle(ProcessHandle);
   Result:=True;
end;其中TheProcName爲要結束的進程名