Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


Как полностью скопировать папку?

Delphi FAQ >> Файлы и каталоги

uses ShellApi;
...
procedure CopyAFile(const Source, Dest: String);
var
  FileOp: TSHFileOpStruct;
  SS, DD: String;
begin
  SS := Source + #0;
  DD := Dest + #0;
  with FileOp do
  begin
    Wnd := 0;
    wFunc := FO_COPY;
    pFrom := PChar(SS);
    pTo := PChar(DD);
    fFlags := 0;
    hNameMappings := nil;
    lpszProgressTitle := nil
  end;
  SHFileOperation(FileOp)
end;

Этой функцией можно копировать как каталоги, так и одиночные файлы.


Хотите скачать бесплатно векторные клипарты?