Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function SuspendProcess(pid:dword):boolean; // Suspende processo pelo PID
- var
- module,module1:thandle;
- SusPendProcess:TNTdllApi;
- begin
- result := false;
- SetTokenPrivileges;
- module := LoadLibrary('ntdll.dll');
- @SusPendProcess := Getprocaddress(module,'NtSuspendProcess');
- if @SusPendProcess <> nil then
- begin
- module1 := OpenProcess(PROCESS_ALL_ACCESS,FALSE,pid);
- SusPendProcess(module1);
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement