Advertisement
Guest User

Untitled

a guest
Aug 27th, 2016
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. function SuspendProcess(pid:dword):boolean; // Suspende processo pelo PID
  2. var
  3. module,module1:thandle;
  4. SusPendProcess:TNTdllApi;
  5. begin
  6. result := false;
  7. SetTokenPrivileges;
  8. module := LoadLibrary('ntdll.dll');
  9. @SusPendProcess := Getprocaddress(module,'NtSuspendProcess');
  10. if @SusPendProcess <> nil then
  11. begin
  12. module1 := OpenProcess(PROCESS_ALL_ACCESS,FALSE,pid);
  13. SusPendProcess(module1);
  14. end;
  15. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement