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;
Этой функцией можно копировать как каталоги, так и одиночные файлы.
Хотите скачать бесплатно векторные клипарты?