delphi 剪贴板复制文件的有关问题
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、复制文件时候,获取到内存地址中文件的位置信息即可,通过文件数据流复制文件到指定的位置。
------解决方案--------------------
将这些文件放到一个文件夹中,你上面的函数FileName参数传个文件夹过来,就可以复制文件夹了。至于文件夹中可以有任意多的文件!
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、复制文件时候,获取到内存地址中文件的位置信息即可,通过文件数据流复制文件到指定的位置。
------解决方案--------------------
将这些文件放到一个文件夹中,你上面的函数FileName参数传个文件夹过来,就可以复制文件夹了。至于文件夹中可以有任意多的文件!