Копирование нескольких файлов с помощью ShellAPI

[Paul Hindenburg]

есть рабочий код, но только для копирования одного объекта (каталог/файл). как можно исправить, чтобы действие совершалось над группой выбранных файлов.
ниже код кнопки:

procedure TFormSelectDir.Button2Click(Sender: TObject);
var
 FSrc,FDes,FPath,
 s,newstr,File_name : string;
 i:Integer;
begin
 FDes := '';
 if TreeView1.Selected=nil then
  exit;
File_name  := Form2.ListView1.Items[Form2.ListView1.ItemIndex].Caption;
s := (SrNodeTree(TreeView1.Selected,s));
newstr := Copy(s,LenghtNullLevel,length(s));
FDes := pnoder(TreeView1.Selected.Data).Puti+newstr;
 FPath:= pnoder(TreeView1.Selected.Data).Puti+newstr;
 if FPath[Length(FPath)]<>'\' then
  FPath:=FPath+'\';
 FSrc := '';
 for i := 0 to TreeView1.items.Count-1 do
  if (TreeView1.items.item[i].Selected) then
   begin
    FSrc:=FSrc+pnoder(Form2.TreeView2.Selected.Data).Puti+File_name+#0;
   end;
 FSrc:=FSrc+#0;
 DoSHFileOp(Handle, FileOpMode[0], FSrc, FDes, false);
close;
end;

а здесь код DoSHFileOp

const
 FileOpMode: array[0..3] of UInt =
   (FO_COPY, FO_DELETE, FO_MOVE, FO_RENAME);
function DoSHFileOp(Handle: THandle; OpMode: UInt; Src,
  Dest: string; DelRicleBin: Boolean): Boolean;
var
 Ret: integer;
 ipFileOp: TSHFileOpStruct;
begin
 Screen.Cursor:=crAppStart;
 FillChar(ipFileOp, SizeOf(ipFileOp), 0);
 with ipFileOp do
  begin
   wnd := Handle;
   wFunc := OpMode;
   pFrom := pChar(Src);
   pTo := pChar(Dest);
   if DelRicleBin then
    fFlags := FOF_ALLOWUNDO
   else
    fFlags := FOF_NOCONFIRMMKDIR;
   fAnyOperationsAborted := False;
   hNameMappings := nil;
   lpszProgressTitle := '';
  end;
 try
  Ret := SHFileOperation(ipFileOp);
 except
  Ret := 1;
 end;
 result := (Ret = 0);
 Screen.Cursor:=crDefault;
end;

[Stilet]

if DelRicleBin then
    fFlags := FOF_ALLOWUNDO
   else
    fFlags := FOF_NOCONFIRMMKDIR;
fFlags:=fFlags or FOF_MULTIDESTFILES	

[Paul Hindenburg]

у меня немного другая проблема - как мне за один раз перемещать(копировать или удалять) несколько выбранных файлов. в переменную File_name как передать несколько названия файлов/папок.
ps
я пытаюсь сделать как в проводнике "Переместить в..."
у меня работает только с первым объектом а остальные выбранные игнорятся

[Stilet]

в переменную File_name как передать несколько названия файлов/папок.

Ну так вроде у тя это уже прописано:

...
FSrc:=FSrc+pnoder(Form2.TreeView2.S elected.Data).Puti+File_name+#0;
end;
FSrc:=FSrc+#0;
...

Это формирует список файлов, которые нужно передать

[Paul Hindenburg]

тогда еще вопрос. какой должен быть разделитель? нулевой байт? или точка с запятой?

[Stilet]

Разделитель между файлами нулевой.
Конец строки два нуля.
Может ты пути неверно туда передаешь. Пройдись отладчиком.

[Paul Hindenburg]

отладчиком проверил - пути правильные ишибка во флагах

    fFlags := FOF_NOCONFIRMMKDIR;
fFlags:=fFlags or FOF_MULTIDESTFILES

прикрепляю файл там проект, если не затруднит порсмотрите,
я там коменты оставил.

[Kotofff]

Вот тут http://www.codenet.ru/progr/delphi/stat/copy.php
немного теории о копировании нескольких файлов с помощью системного диалога и с использованием той же структуры TSHFileOpStruct, вот там же поясняется как в нее писать список файлов для копирования ...
Короче смотри - я этим не занимался поэтому конкретно с кодом не помогу.

[Paul Hindenburg]

появилась проблемка: при копировании в текущем каталоге файла/папки возникает ошибка в прикрепленном файле скрин. как сделать так, как сделано в Windows тоесть копируем "Файл1" в тотже самый каталог где находится исходный файл и создается файл с именем "Копия Файл1"

[Stilet]

А хелп почитать?

fFlags:=fFlags or FOF_MULTIDESTFILES or FOF_RENAMEONCOLLISION