delphi - 在程序集中获取ThreadID

Question

我阅读了FastMM4的源代码，并注意到这个有趣的功能

function GetThreadID: Cardinal;
{$ifdef 32Bit}
asm
  mov eax, FS:[$24]
end;
{$else}
begin
  Result := GetCurrentThreadID;
end;
{$endif}

我已经测试过它，并且它有效，所以我的问题是任何解释它为什么有效？

Answer 1

x86 寄存器 FS 指向 Thread Information Block在Windows中。 TIB 中地址 FS+0x24 处的值包含当前线程的 ID。通过将值移至用于传递函数返回值的 eax，GetThreadID 返回当前线程 ID。