Delphi调试遍历自身线程时访问当前线程遭权限拒绝问题

嗨，我之前也碰到过一模一样的问题！其实核心原因很简单：你正尝试打开当前正在执行遍历操作的线程，Windows的线程安全机制会阻止这种自引用的访问请求——毕竟当前线程已经处于活跃执行状态，重复调用OpenThread打开它会触发权限校验的限制，直接返回访问被拒的错误。

问题根源拆解 #

• 当你调用GetCurrentThreadId()时，返回的就是当前跑这段遍历代码的线程ID。
• 哪怕你给OpenThread传了正确的权限（比如THREAD_QUERY_INFORMATION），Windows也会拒绝这个请求，因为当前线程的句柄已经被当前进程持有，这种重复打开的操作会触发系统的安全防护逻辑。

两种可行的解决方案 #

1. 遍历过程中跳过当前线程

这是最直接的处理方式：在遍历线程列表时，先获取当前线程ID，一旦遍历到匹配的ID，直接跳过该线程，不要尝试打开它。补全后的Delphi示例代码如下：

program Project9;
{$APPTYPE CONSOLE}
{$R *.res}

uses
  Windows, System.SysUtils, TlHelp32;

type
  TOpenThreadFunc = function(DesiredAccess: DWORD; InheritHandle: BOOL; ThreadID: DWORD): THandle; stdcall;

var
  OpenThread: TOpenThreadFunc;
  hSnapshot: THandle;
  ThreadEntry: TThreadEntry32;
  CurrentThreadId: DWORD;
  hThread: THandle;
  ThreadTime: FILETIME;
begin
  try
    // 先拿到当前线程ID，后续用来跳过自身
    CurrentThreadId := GetCurrentThreadId();

    // 动态加载OpenThread函数（兼容不同Windows版本）
    OpenThread := GetProcAddress(GetModuleHandle('kernel32.dll'), 'OpenThread');
    if not Assigned(OpenThread) then
    begin
      Writeln('OpenThread函数未找到');
      Exit;
    end;

    // 创建线程快照
    hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
    if hSnapshot = INVALID_HANDLE_VALUE then
    begin
      Writeln('创建线程快照失败: ', SysErrorMessage(GetLastError));
      Exit;
    end;
    try
      ThreadEntry.dwSize := SizeOf(TThreadEntry32);
      if Thread32First(hSnapshot, ThreadEntry) then
      begin
        repeat
          // 关键：跳过当前正在执行的线程
          if ThreadEntry.th32ThreadID = CurrentThreadId then
            Continue;

          // 尝试打开其他线程并获取时间
          hThread := OpenThread(THREAD_QUERY_INFORMATION, False, ThreadEntry.th32ThreadID);
          if hThread <> 0 then
          begin
            try
              if GetThreadTimes(hThread, nil, nil, nil, @ThreadTime) then
                Writeln('线程ID: ', ThreadEntry.th32ThreadID, ' - 用户态时间: ', ThreadTime.dwLowDateTime, ',', ThreadTime.dwHighDateTime)
              else
                Writeln('获取线程', ThreadEntry.th32ThreadID, '时间失败: ', SysErrorMessage(GetLastError));
            finally
              CloseHandle(hThread);
            end;
          end
          else
            Writeln('打开线程', ThreadEntry.th32ThreadID, '失败: ', SysErrorMessage(GetLastError));
        until not Thread32Next(hSnapshot, ThreadEntry);
      end
      else
        Writeln('遍历第一个线程失败: ', SysErrorMessage(GetLastError));
    finally
      CloseHandle(hSnapshot);
    end;
  except
    on E: Exception do
      Writeln('异常: ', E.Message);
  end;
  Readln;
end.

2. 直接用伪句柄获取当前线程时间

如果你确实需要当前线程的时间数据，完全不需要用OpenThread——Windows提供了GetCurrentThread()来获取当前线程的伪句柄，这个句柄不需要打开，直接就能用来调用GetThreadTimes：

// 获取当前线程时间的正确姿势
var
  CurrentThreadHandle: THandle;
  ThreadTime: FILETIME;
begin
  CurrentThreadHandle := GetCurrentThread();
  if GetThreadTimes(CurrentThreadHandle, nil, nil, nil, @ThreadTime) then
    Writeln('当前线程用户态时间: ', ThreadTime.dwLowDateTime, ',', ThreadTime.dwHighDateTime)
  else
    Writeln('获取当前线程时间失败: ', SysErrorMessage(GetLastError));
end;

额外注意事项 #

• GetCurrentThread()返回的伪句柄不需要手动关闭，它是系统维护的特殊句柄，仅在当前线程中有效。
• 确保请求的线程权限是必要的最小值，比如获取线程时间只需要THREAD_QUERY_INFORMATION，不要请求过高权限，避免触发不必要的安全限制。

内容的提问来源于stack exchange，提问作者Grahame Grieve