Liste aller Threads einer Application

[DerAndereMicha]

Wie bekomme ich eine Liste aller Threads heraus die in meiner Application gerade aktiv sind?

[Vjay]

Hallo,

du solltest dies unter Zurhilfenahme der ToolHelp32 und den Funktionen Thread32First und Thread32Next hinbekommen.

[NicoDE]

Delphi-Quellcode:

uses
  TlHelp32;

var
  Snapshot: THandle;
  Thread32: TThreadEntry32; 
begin
  Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, GetCurrentProcessId());
  if (Snapshot <> 0) and (Snapshot <> INVALID_HANDLE_VALUE) then
    try
      ZeroMemory(&Thread32, SizeOf(TThreadEntry32));
      Thread32.dwSize := SizeOf(TThreadEntry32);
      if Thread32First(Snapshot, Thread32) then
        repeat
          //...
        until not Thread32Next(Snapshot, Thread32); 
    finally
      CloseHandle(Snapshot);
    end;
end;

[DerAndereMicha]

Danke, für die schnelle Hilfe :-)