XCOPY mit Delphi nachbauen

[MaBuSE]

Zitat von Hansa:

Du meinst mit Blockread usw. ? Der Rest sind ja auch nur WinApi Sachen.

Wo ist das Problem?

Hast Du Angst vor der Win32 API ?

Delphi-Quellcode:

uses ShellAPI;

function MyCopy(Quelle, Ziel: string):Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY; 
    fFlags := FOF_FILESONLY       // nur Dateien wenn Wildcard (*.*) verwendet werden
           or FOF_NOCONFIRMATION; // Keine Abfrage, es wird JA angenommen (z.B. überschreiben)
    pFrom  := PChar(Quelle + #0);
    pTo    := PChar(Ziel)
  end;
  Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//  if myCopy('C:\TEMP\*.*', 'C:\Verzeichnis) then caption := 'OK' else Caption := 'ERR';
// oder für jede Datei einzeln...

  if myCopy('C:\TEMP\EinzelneDatei.ext', 'C:\Verzeichnis') then caption := 'OK' else Caption := 'ERR';
end;