Get Main Thread ID

通过TEB结构获取主线程ID，XP系统下测试通过，不同系统的TEB结构可能有所不同。

function GetThreadID:DWORD;
asm
  xor esi,esi
  mov eax,fs:[esi+$18]
  mov eax,[eax+$24]
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  thid: DWORD;
begin
  thid := GetThreadID;
  ShowMessageFmt('%d',[thid]);
end;