delphi 剪贴板复制文件的问题

Question

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上同时选择了多个文件！但鼠标右键复制时却只复制了一个文件？

Answer 1

将这些文件放到一个文件夹中，你上面的函数FileName参数传个文件夹过来，就可以复制文件夹了。至于文件夹中可以有任意多的文件！