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. :)