Kopieren

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von netscanner · begonnen am 8. Dez 2005 · letzter Beitrag vom 8. Dez 2005

Vorheriger Beitrag

Nächster Beitrag

Kidix

Registriert seit: 14. Jan 2005
315 Beiträge

Delphi 4 Standard

Re: Kopieren

8. Dez 2005, 20:18

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  ShellApi;

function CopyDir(const fromDir, toDir: string): Boolean;

var

  fos: TSHFileOpStruct;

begin

  ZeroMemory(@fos, SizeOf(fos));

  with fos do

  begin

    wFunc  := FO_COPY;

    fFlags := FOF_FILESONLY;

    pFrom  := PChar(fromDir + #0);

    pTo    := PChar(toDir)

  end;

  Result := (0 = ShFileOperation(fos));

end;