[Ann1986]

Есть такая процедура

Код:

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.

Что я делаю нитак?