怎样获得线程句柄？

Question

一个Delphi程序如果不用TThread对象就是单线程的吧，现在想提高它的优先级，怎样获取它的句柄阿？

Answer 1

我们可以利用GetPriorityClass() 和SetPriorityClass()这两个函数来动态地获取或设置一个进程的优先级类。在大多数情况下，调用这两个函数是为了获取或设置本进程的优先级类。这时，可以使用API函数GetCurrentProcess()。此函数的返回值是一个当前进程的假句柄。之所以说它假，是因为这个函数并没有创建新的句柄，并且，返回值不必由CloseHandle()来关闭。它仅仅是用来定位一个已存在的句柄。