Wenn du alles nur in einem Thread machst und den Hauptthrad auch noch anhältst ist das kein Wunder.

Danke für die schnelle Antwort !
Wird durch die Schleife nicht direkt ein neues Thread aufgemacht ?

Zitat von Ginko:

Danke für die schnelle Antwort !
Wird durch die Schleife nicht direkt ein neues Thread aufgemacht ?

Das schon. Aber du wartest mit WaitForSingleObject gleich wieder so lange bis er beendet ist.

Wenn ich das anhalten aus der Schleife hole wirds auch nicht schneller.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var
  DateienLst: TSearchRec;
  id: Cardinal;
  ExitCode : Cardinal;
  tp : TThreadParams;
  threadhandle: THandle;
begin
  if FindFirst(Directory + '*.txt', faAnyFile and not faDirectory, DateienLst) = 0 then
    try

      repeat
        tp.Dat:= Directory+DateienLst.Name;
        threadhandle:= system.BeginThread(nil,0,@Umwandler,@tp,0,id);
      until FindNext(DateienLst) <> 0;


      WaitForSingleObject(threadhandle, INFINITE);
      GetExitCodeThread(threadhandle, ExitCode);
      case ExitCode of
        IDYES: Writeln('Benutzer hat "Ja" angeklickt.');
        IDNO: Writeln('Benutzer hat "Nein" angeklickt.');
      end;
      CloseHandle(threadhandle);
    finally
      SysUtils.FindClose(DateienLst);
    end;
end;

Und das funktioniert mit einer Threadhandle ?

Gruß
K-H

Es dürfte auch nur das Threadhandle vom letzten Thread geschlossen werden.

Also wäre hier ein Array von Threadhandles sinnvoll ?

Darf ich dir einen Rat geben? Lass lieber die Finger von Threads bis du weißt, was du tust.