DELPHI根据进程名强制关闭进程

原理：
循环所有进程，取得相同名的进程，得到进程句柄，关闭

killtask('cmd.exe');


//结束进程
function TForm1.KillTask(ExeFileName: string): Integer;
const
 PROCESS_TERMINATE = $0001;
var
 ContinueLoop: BOOL;
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
begin
 Result := 0;
 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
 ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

 while Integer(ContinueLoop) <> 0 do
 begin
   if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
     UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
     UpperCase(ExeFileName))) then
     Result := Integer(TerminateProcess(
       OpenProcess(PROCESS_TERMINATE,
       BOOL(0),
       FProcessEntry32.th32ProcessID),
       0));
   ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
 end;
 CloseHandle(FSnapshotHandle);
end;

//提权
function TForm1.EnablePrivilege(hToken: Cardinal; PrivName: string; bEnable:
 Boolean): Boolean;
var
 TP: TOKEN_PRIVILEGES;
 Dummy: Cardinal;
begin
 TP.PrivilegeCount := 1;
 LookupPrivilegevalue(nil, pchar(PrivName), TP.Privileges[0].Luid);
 if bEnable then
   TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
 else
   TP.Privileges[0].Attributes := 0;
 AdjustTokenPrivileges(hToken, False, TP, SizeOf(TP), nil, Dummy);
 Result := GetLastError = ERROR_SUCCESS;
end;  

最后

以上就是神勇路灯为你收集整理的DELPHI根据进程名强制关闭进程 的全部内容，希望文章能够帮你解决DELPHI根据进程名强制关闭进程 所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。