无驱动保护进程例子

.如果真 (取窗口标题_ (lParam) ＝ “Windows 任务管理器”)
hwnd_ ＝ lParam
winapi (, “GetWindowThreadProcessId ”, 3, lParam, 取址 (pid_ant))
pid_pro ＝ winapi (, “GetCurrentProcessId”, 3, )
.如果真 (AP (pid_ant, pid_pro)) ' pid_pro 可换成自己要保护的进程PID
是否保护 ＝ 真