Auf Thread warten

**RWarnecke**

Hallo,

ich komme leider nicht weiter. Ich möchte das

Beispiel CopyFileEx von Luckies Seite in eine FOR-Schleife packen. Bei der folgenden Procedure würden ja mehrere Threads hintereinander aufgemacht werden : (die StringListe wird beim starten des Programms gefüllt)

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  Params: PCopyEx;

  ThreadID: Cardinal;

  FileList : TStringList;

begin

  cancelCopy := False;

  FileList := TStringList.Create;

  New(Params);

  for i := 0 to FileList.count - 1 do

  begin

    Params.Source := 'H:\Videos ungebrannt\' + FileList.Strings[i];

    Params.Dest := 'J:\' + Filelist.Strings[i];

    Params.Handle := Handle;

    CloseHandle(BeginThread(nil, 0, @CopyExThread, Params, 0, ThreadID));

  end;

end;

Wie kann ich nach dem Befehl CloseHandle warten bis der Thread zu Ende ist ?

Auf Thread warten

Auf Thread warten

Forumregeln