How to get PID of last created thread in process
Posted: Tue Apr 14, 2009 10:08 pm
How to get PID of last created thread in process ?
i use function to get first :
but how to get pid of last thread
i use function to get first :
Code: Select all
function GetThreadID(ProcessID : DWORD ) : DWORD ;
var
Handle:tHandle;
ThreadEntry : ThreadEntry32;
GotThread : Boolean;
begin
Handle:=CreateToolHelp32SnapShot(TH32CS_SNAPTHREAD ,0);
ThreadEntry.dwSize:=SizeOf(ThreadEntry);
GotThread := Thread32First(Handle, ThreadEntry);
{$B-}
if GotThread and (ThreadEntry.th32OwnerProcessID <> ProcessID) then
repeat
GotThread := Thread32Next(Handle,ThreadEntry);
until (not GotThread) or (ThreadEntry.th32OwnerProcessID = ProcessID ) ;
{$B+}
if GotThread
then
Result := ThreadEntry.th32ThreadID
else Result := 0;
CloseHandle(Handle);
end;