Hallo zusammen,
ich versuche eine Liste aller eigenen threads zusammen zu kriegen.
Ich habe diesen Code gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMain_form.Button1Click(Sender: TObject);
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;
// central.switch_baudrate;
end;

Mein Compiler meckert:
inkompatible Typen pointer and tag threadentry32

Was ist da falsch?

Grüsse
Rainer

Versuch es mal mitZeroMemory(@Thread32, SizeOf(TThreadEntry32));