Announcement

**sascha wiede** · 31.12.2000, 19:16

sorry, warein bischen unübersichtlich

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;
<br&gt

**Torsten Grundke** · 01.01.2001, 13:42

Hallo Sascha,

<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Normale Seite ohne Titel</title>
</head>

<body bgcolor="#FFFFFF">

<pre>function copydir(von,zieldir: String): boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos)); { Vermutung: private Funktion die die Fos-Struktur mit 0 initialisieren soll}
{ alternativ kannst Du die Delphi-Funktion Fillchar(fos, sizeof(fos), 0) verwenden} 
with fos do begin
wFunc := FO_COPY; { Parameter setzen - die Parameter sind in der Hilfe zum Windows SDK beschrieben}
{ oder unter "http://msdn.microsoft.com/library/psdk/shellcc/shell/Structures/SHFILEOPSTRUCT.htm"}
fFlags := FOF_FILESONLY;
pFrom := PChar(von+#0);
pTo := PChar(zieldir)
end;
Result:=(0=ShFileOperation(fos)); { Funktion SHFileOperation ausführen }
end;
</pre>
</body>
</html>

Tschüß

Torste

01.01.2001, 17:38

Announcement

F: Quelltexterläuterung ?

F: Quelltexterläuterung ?

Comment

Comment

Comment