delphi 剪贴板复制文件的问题

procedure TFileViewForm.CopyToClipboard(FileName:string);
var
  DataHandle: THandle;
  DataPointer: PDROPFILES; //文件的信息结构体
begin
  //申请内存空间 保存文件信息的结构体
  DataHandle := GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE,SizeOf(DROPFILES)+2+Length(FileName));
  DataPointer := PDROPFILES(GlobalLock(DataHandle));
  FillChar(DataPointer^,SizeOf(DROPFILES)+2+Length(FileName),0);
  DataPointer.pFiles:=SizeOf(DROPFILES);
  DataPointer.pt:=Point(0,0);
  DataPointer.fNC:=False;
  DataPointer.fWide:=False;
  Move(FileName[1],Pointer(Integer(DataPointer)+SizeOf(DROPFILES))^,Length(FileName));
  GlobalUnlock(DataHandle);
  OpenClipboard(LVFileList.Handle);
  EmptyClipboard;
  SetClipboardData(CF_HDROP,DataHandle);
  CloseClipboard;

end;
上面这个函数一次只能从剪贴板复制一个文件到其他目录！我想同时复制多个文件怎么办？
我用鼠标在listview上同时选择了多个文件！但鼠标右键复制时却只复制了一个文件？

我的思路是这样的：
1、既然上述结构能够满足一个文件的复制需求，那焦点就集中在多文件上；
2、多个被选中对象产生多个结构体，保存多个文件。
3、复制文件时候，获取到内存地址中文件的位置信息即可，通过文件数据流复制文件到指定的位置。