怎样取得一个正在运行的进程的线程号,解决后肯定给分

线程有关的函数和结构
tagTHREADENTRY32 = record
dwSize: DWORD; // 指定结构的大小，
// 在调用Thread32First前需要设置，否则将会失败
cntUsage: DWORD; // 线程引用计数
th32ThreadID: DWORD; // 线程号
th32OwnerProcessID: DWORD; // 拥有线程的进程号
tpBasePri: Longint; // 在线程创建时的初始优先级
tpDeltaPri: Longint; // 现在线程的优先级的相对于初始值的改变量
dwFlags: DWORD; // 保留，没有使用
end;
TThreadEntry32 = tagTHREADENTRY32;
function Thread32First(hSnapshot: THandle; var lpte: TThreadEntry32): BOOL; stdcall;
function Thread32Next(hSnapshot: THandle; var lpte: TThreadENtry32): BOOL; stdcall;