1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

//>>>>>>><<<<<<<<<<<<<>>>>>>>>>><<<<<<<<<<>>>>>>>>>>>>>>>
//-------------------------------------------------------
//                Ordner anlegen      am Ziel
//-------------------------------------------------------
//>>>>>>><<<<<<<<<<<<<>>>>>>>>>><<<<<<<<<<>>>>>>>>>>>>>>>

            begin
              for i:=0 To ListBox7.Count-1 Do
               begin
                label5.Caption:='Ordner werden angelegt';
                {$IOChecks off}
                 S:='';
                 S:=ListBox11.Items[0]+ListBox7.Items[i];
                 ForceDirectories(S);
                 Application.ProcessMessages;
                 {$IOChecks on}
               end;
                  ListBox7.Clear;
                    begin
                      excludeFiles;
                    end;
// ---------------------------------------
//   Einzelne Dateien kopieren
//-----------------------------------------
                      begin
                       Sicherungsdatei;             //Dateiliste wird angelegt
                       label5.Visible:=True;
                       label5.Caption:='Dateien werden kopiert';
                        begin
                          SendMailwithAtt;         // Dateienliste wird versandt
                          GroupBox9.Visible:=True;
                          ProgressBar1.visible:=True;
                            for p:=0 To ListBox4.Count -1 Do
                             begin
                              cancelCopy := False;
                              New(Params);
                              Params.Dest := ListBox11.Items[0]+ListBox18.Items[p];
                              Params.Source :=ListBox4.Items[p];
                              Params.Handle := Handle;
                              CloseHandle(BeginThread(nil, 0, @CopyExThread, Params, 0, ThreadID));
                              GetExitCodeThread(Params.Handle,ExitCode);
                             end;
                        end;
                      end;					

1:
2:
3:

              Params.Handle:=BeginThread(nil, 0, @CopyExThread, Params, 0, ThreadID);
              WaitForSingleObject(Params.Handle,2000);
              GetExitCodeThread(Params.Handle,ExitCode);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function CopyExThread(p: PCopyEx): Integer;
var
  Source: String;
  Dest: String;
  Handle: THandle;
  Cancel                 : PBool;
begin
begin
  Source := p.Source;
  Dest := p.Dest;
  Handle := p.Handle;
  Cancel := PBOOL(False);
  CopyFileEx(PChar(Source), PChar(Dest), @CopyFileProgress, Pointer(Handle), Cancel, 0);
  Dispose(p);
  result := 0;
end;
CloseHandle(Handle);   //Hier ist die Freigabe
end;