//функция копирования директорий
function CopyDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
j:integer;
List:TStringList;
begin
List:=TStringList.create;
//Далее идет забивание Listа путями к директориям
for j:=0 to List.Count -1 do
if CopyDir(List.Strings[j], 'C:\') = True then
ShowMessage('файлы скопированы');
end;
|