Есть такая процедура
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
FO :TSHFileOpStruct;
begin
FO.Wnd:=Form1.Handle;
FO.wFunc:=FO_COPY;
FO.fFlags:=FOF_MULTIDESTFILES;
FO.pFrom:=PChar('C:\1\*.*'+#0+'C:\2\*.*'+#0);
FO.pTo:=PChar('C:\3'+#0+'C:\4'+#0);
FO.fFlags:=FOF_NOCONFIRMATION;
SHFileOperation(FO);
ShowMessage('Сохранение прошло успешно!')
end;
Admin: Пользуемся тегами!
пытаюсь копировать с 1 в 3 и с 2 в 4 файлы, в итоге получается с 1 и со 2 все копируется в 3, почему???
вот описание этой процедуры:
pFrom
Указатель на буфер, содержащий пути к одному или нескольким файлам.
Если файлов несколько, между путями ставится нулевой байт.
Список должен заканчиваться двумя нулевыми байтами.
pTo
Аналогично pFrom, но содержит путь к директории - адресату,
в которую производится копирование или перемещение файлов.
Также может содержать несколько путей.
При этом нужно установить флаг FOF_MULTIDESTFILES.
Что я делаю нитак?
