delphi-operacje na folderach(kopiuj,przenieś,zmień nazwę)

uses
 ShellAPI;

procedure SHCopyFile(hWndOwner: HWND; const SourceFile, TargetFile: string);
var
 Info: TSHFileOpStruct;
 Aborted: Bool;
begin
 Aborted := False;
 with Info do begin
   Wnd := hWndOwner;
   wFunc := FO_COPY;
   pFrom := pChar(SourceFile);
   pTo := pChar(TargetFile);
   fFlags := FOF_NOCONFIRMATION+fof_silent+FOF_NOCONFIRMMKDIR;
   fAnyOperationsAborted := Aborted;
 end;
 try
   SHFileOperation(Info);
 finally
   if Aborted then
     ;                                                     { act upon any user cancellations }
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
 SHCopyFile(Handle, 'c:\xx\*.*', 'c:\yy\');
except
end;
end;