delphi 如何结束制定进程

发布网友 发布时间：2022-04-14 07:31

我来回答

共3个回答

热心网友 时间：2022-04-14 09:00

某些进程是受保护的无法结束,比如杀毒软件的进程,sqlserver服务的进程等等.
其他的是可以结束掉的比如qq.exe
function TForm1.KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
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;
上面是结束的方法,传你要结束进程的名字作为参数就可以了.

热心网友 时间：2022-04-14 10:18

h:HWND;

h:=FindWindow('','ba');
SendMessage(h,WM_CLOSE,0,0);
//没装毒墙，随手写的。原理都差不多.

热心网友 时间：2022-04-14 11:53

金山毒霸 应该用了HOOK API的，如果普通的编程能结束，那金山就不用混了