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

Hallo,

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

zusammenfalten · markieren

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;

Danke, für die schnelle Hilfe