Einzelnen Beitrag anzeigen

Benutzerbild von duff
duff

Registriert seit: 26. Jan 2005
Ort: Brühl
76 Beiträge
 
Delphi 2007 Professional
 
#1

Beim Kopieren von Ordnern kein Dialog

  Alt 21. Jun 2006, 11:51
Hallo,

ich wollte mich mal erkundigen, wie ich es anstelle beim kopieren von Ordner bzw. Dateien den Ersetzen Dialog zu unterdrücken und davon auszugehen, dass alle Dateien ersetzt werden sollen????

Ich kopiere die Ordner so

Delphi-Quellcode:
function CopFLR(quelle, ziel: string): integer;
var
  sfo: tshfileopstruct;
begin
  zeromemory(@sfo, sizeof(sfo));
  quelle := quelle + #0#0;
  ziel := ziel + #0#0;
  with sfo do begin
    wnd := application.handle;
    wfunc := fo_copy;
    fflags := FOF_ALLOWUNDO;
    pfrom := @quelle[1];
    pto := @ziel[1];
  end;
  result := shfileoperation(sfo);
end;
Greetz
  Mit Zitat antworten Zitat