在Windows下只要uses Windows,就有这两个API可调用GetTickCount,GetCurrentThreadID
如果我们需要跨平台使用这两个函数，就不能仅仅Uses Windows了。
如果需要跨平台使用GetTickCount,可以uses System.Classes，然后使用类方法：TThread.GetTickCount
如果需要跨平台使用GetCurrentThreadID,则仅需引用不同的单元即可：
uses
{$ifdef MSWINDOWS}
Windows;
{$endif}
{$ifdef POSIX}
Posix.Pthread;
{$endif}
Delphi跨平台下的GetTickCount,GetCurrentThreadID
原文：http://www.cnblogs.com/hezihang/p/3969648.html