Delphi中HookAPI进行进程保护(不允许进程结束的方法).docxVIP

Delphi 中 Hook API 进行进程保护 （不允许进程结束的方法 ） Delphi 中 Hook API 进行进程保护 (不允许进程结束的方 法) 减小字体 增大字体 const PRG_NAME = HA.exe; var TerminateProcessNext : function (processHandle, exitCode: dword) : bool; stdcall; NtTerminateProcessNext : function (processHandle, exitCode: dword) : dword; stdcall; {＄R *.res} function ThisIsOurProcess(processHandle: dword): boolean; var pid: dword; arrCh: array [0 .. MAX_PATH] of char; begin pid := ProcessHandleToId(processHandle); result := (pid lt;gt; 0) and ProcessIdToFileName(pid, arrCh) and (PosText(PRG_NAME, arrCh) gt; 0); end; function TerminateProcessCallback(processH