Alle subThreads beenden beim programm beenden

[Luckie]

Jupp, davon war aber gar nicht die Rede. Ein Thread-Handle kannst du sofort schließen, wenn du es nicht mehr brauchst. Mache ich in der Regel auch immer so, damit ich es nicht vergesse.

Ich benutze es meist nur, um zu kucken, ob alles geklappt hat:

Delphi-Quellcode:

    // Thread gleich starten
    hThread := BeginThread(nil, 0, @Thread, ThreadParams, 0, ThreadID);
    // wenn hThread <> 0 hat alles geklappt
    if hThread <> 0 then
    begin
      // nicht mehr benötigtes Thread-Handle schließen
      CloseHandle(hThread);
      // Schalflächen aktivieren / deaktivieren
      Button1.Enabled := False;
      Button2.Enabled := True;
    end;