p;                                  : Windows.TOKEN_PRIVILEGES;
    Dummy                                                   : Cardinal;
  begin
    TP.PrivilegeCount := 1;
    LookupPrivilegeValue(nil, pchar(PrivName), TP.Privileges[0].Luid);
    if bEnable then TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED else TP.Privileges[0].Attributes := 0;
    AdjustTokenPrivileges(hToken, False, TP, SizeOf(TP), nil, Dummy);
    Result := GetLastError = ERROR_SUCCESS;
  end;
var
  hToken                                                    : Cardinal;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
  Result := EnablePrivilege(hToken, ''SeDebugPrivilege'', CanDebug);
  CloseHandle(hToken);
  hToken := 0;
end;

 

调用时，先调用EnableDebugPrivilege，就可以调用InPortB、OutPortB了。