Ich bin einfach zu blöde! Die Funktion bekomme ich so nicht eingebunden!
und so klappt es auch nicht! Verzeichnis falsch angegeben? Muss da ein *.* hinter? Will doch nur alle Dateien von 'e:\k-test' nach 'f:\test' kopieren!
Delphi-Quellcode:
begin
try
with ShellFileOperation
do
begin
Wnd :=
Handle;
wFunc := FO_COPY;
pFrom := PChar('
e:\k-test');
pTo := PChar('
F:\Test');
fFlags := FOF_FILESONLY;
//OR FOF_NOCONFIRMMKDIR FOF_SIMPLEPROGRESS;
//fFlags := FOF_NOCONFIRMMKDIR;
lpszProgressTitle := '
Dateien kopieren ...';
end;
SHFileOperation(ShellFileOperation);
except
end;
Gruß
Mitchl