function GetPathFromPID(const PID: cardinal): string;
var
 hProcess: THandle;
 path: array[0..MAX_PATH - 1] of char;
begin
 hProcess := OpenProcess(PROCESS_ALL_ACCESS, false, PID);
 if hProcess <> 0 then
   try
     if GetModuleFileNameEx(hProcess, 0, path, MAX_PATH) = 0 then
       RaiseLastOSError;

     result := path;
   finally
     CloseHandle(hProcess)
   end
 else
   RaiseLastOSError;
end;

function SetDebugPriv: Boolean;
var
 Token: THandle;
 tkp: TTokenPrivileges;
begin
 Result := false;
 if OpenProcessToken(GetCurrentProcess,
   TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token) then
 begin
   if LookupPrivilegeValue(nil, PChar('SeDebugPrivilege'),
     tkp.Privileges[0].Luid) then
   begin
     tkp.PrivilegeCount := 1;
     tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
     Result := AdjustTokenPrivileges(Token, False,
       tkp, 0, PTokenPrivileges(nil)^, PDWord(nil)^);
   end;
 end;
end;