Beim Kopieren von Ordnern kein Dialog

[duff]

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

[himitsu]

schau mal in shfileoperation ... speziell was man da alles über fFlags einstellen kann ;)


PS: da quelle und ziel Strings sind kannst du, falls du unbeding noch ein/zwei Bytes einsparren willst, aus den #0#0 ein #0 machen ... die Strings haben am Ende auch schon ein #0, womit mann also wieder bei #0#0 ankommt :)

[duff]

Zitat:

Zitat von himitsu

schau mal in shfileoperation ... speziell was man da alles über fFlags einstellen kann ;)


PS: da quelle und ziel Strings sind kannst du, falls du unbeding noch ein/zwei Bytes einsparren willst, aus den #0#0 ein #0 machen ... die Strings haben am Ende auch schon ein #0, womit mann also wieder bei #0#0 ankommt :)

danke für den tipp, schau ich mir direkt mal an!!!