Kann mir mal jemand zum folgenden Quelltext ein paar Bemerkungen machen, damit ich verstehe, was da genau pasiert ?! (Die Function dient zum kopieren von kompletten Verzeichnisbäumen)
danke !
<b>
function copydir(von,zieldir: String): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(von+#0);
pTo := PChar(zieldir)
end;
Result:=(0=ShFileOperation(fos));
end;
</b>
danke !
<b>
function copydir(von,zieldir: String): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(von+#0);
pTo := PChar(zieldir)
end;
Result:=(0=ShFileOperation(fos));
end;
</b>
Comment