Kopiowanie plików wraz z folderami

Witam, mam pewien problem. (jak większość na tym forum (; )
Otóż szukam procedurki która skopiuję mi całkowitą zawartość jakiegoś folderu...
Przyznam się iż znalazłem takową :

ShellAPI;

var FOS:TSHFileOpStructA;
begin
 with FOS do
 begin
  Wnd:=Handle;
  wFunc:=FO_COPY;
  pFrom:='c:\Katalog\From\*.*';
  pTo:='c:\Katalog\To\';
  fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR;
  fAnyOperationsAborted:=False;
 end;
 if SHFileOperation(FOS)<>0 then
  ShowMessage('Wystąpił błąd podczas kopiowania')
 else
  if FOS.fAnyOperationsAborted then
   ShowMessage('Kopiowanie zostało przerwane');
end;

Lecz jedną niedogodnością jest - pyta się czy "nadpisać" pliki, jak już istnieją...

• cały "patent" się właśnie opiera na tym, by tego "zapytania" od strony Windowsa nie było, i wszystko się ładnie, potajemnie nadpisało :)

Pozdrawiam, KillMe. :)

Powinno wystarczyć jeszcze dodanie flagi FOF_NOCONFIRMATION. Jeśli mając gotowy kod nawet do helpa nie zajrzysz, by sprawdzić co on robi, daleko nie zajdziesz.