Thread freigeben, wenn er festklebt :)

[Stevie]

Zitat:

Zitat von Larry Osterman

How many times does
it have to be said: Never
call TerminateThread.

Siehe https://blogs.msdn.microsoft.com/old...14-00/?p=91811

[Dalai]

Zitat:

Zitat von 4dk2 (Beitrag 1382012)

aber

Delphi-Quellcode:

TerminateThread(FWorker.ThreadID,iThreadExitCode) = false

Weil du immer noch die Thread ID benutzt statt des Handles.

Generell stimmt ich aber zu: Priorität sollte haben, zu verhindern, dass der Thread hängt. Warum er das tut, kann natürlich keiner sagen außer dir selbst.

Grüße
Dalai

[4dk2]

Danke für eure Hilfe, es Funktioniert jetzt.

Delphi-Quellcode:

      iThreadID:=FWorker.ThreadID;
      hThread:=OpenThread(THREAD_TERMINATE or THREAD_QUERY_INFORMATION ,false,iThreadID);
      if hThread<>0 then
      try

        System.SetLastError(ERROR_SUCCESS);
        iThreadExitCode:=0;
        if not GetExitCodeThread(hThread,iThreadExitCode) then
          sMsg:=SysErrorMessage(GetLastError);

        System.SetLastError(ERROR_SUCCESS);
        bOK:=TerminateThread(hThread,iThreadExitCode);
        if bOK then
          sMsg:='OK'
        else
        begin
          sMsg:=SysErrorMessage(GetLastError);
        end;
      finally
        CloseHandle(hThread);
      end;

[Der schöne Günther]

PS: Ohne auf die Notwendigkeit von TerminateThread(..) einzugehen: Das ständige Zwischenspeichern des Rückgabewertes, SysErrorMessage usw. lässt sich vereinfachen: Schau dir mal den Aufruf

Delphi-Quellcode:

System.SysUtils.Win32Check(..)

an.