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)
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 ?