|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Не пойму в чем дело
Есть такая процедура
Код:
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; пытаюсь копировать с 1 в 3 и с 2 в 4 файлы, в итоге получается с 1 и со 2 все копируется в 3, почему??? вот описание этой процедуры: pFrom Указатель на буфер, содержащий пути к одному или нескольким файлам. Если файлов несколько, между путями ставится нулевой байт. Список должен заканчиваться двумя нулевыми байтами. pTo Аналогично pFrom, но содержит путь к директории - адресату, в которую производится копирование или перемещение файлов. Также может содержать несколько путей. При этом нужно установить флаг FOF_MULTIDESTFILES. Что я делаю нитак? Последний раз редактировалось Admin, 12.12.2008 в 10:11. |