怎样实现把在一个ShellListview中选中的多个文件或文件夹拖放到另一个ShellListview中（既copy过来）？

[Allblus]

如题。

希望高手指点。

[Allblus]

怎么顶都没人啊？

[hahafan]

设置ShellListview的DragMode为dmAutomatic，
在接受文件的ShellListview写OnDragOver和OnDragDrop事件
OnDragOver中确认接受，Accept := Source is TShellListView;
OnDragDrop中用SHFileOperation将选中文件拷过来即可

[老之]

uses ShellAPI;

procedure Copy(Source:string;Dest:string);
var SHFO:TShFileOpStruct;
begin
with SHFO do
begin
Wnd:=0;
wFunc:= FO_COPY;
pFrom:=PChar(Source+#0#0);
pTo:=PChar(Dest+#0#0);
fFlags:=FOF_NOCONFIRMATION;
fAnyOperationsAborted:=False;
end;
ShFileOperation(SHFO);
end;

procedure TForm1.ShellListView2DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept:=(Source is TShellListView);
end;

procedure TForm1.ShellListView2DragDrop(Sender, Source: TObject; X,
Y: Integer);
var SourceName,DestName:string;
i:integer;
begin
SourceName:=ShellListView1.SelectedFolder.PathName;
DestName:=ExtractFilePath(ShellListView2.RootFolder.PathName)+'\'+ExtractFileName(SourceName);
Copy(SourceName,DestName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellListView1.DragMode:=dmAutomatic;
ShellListView2.AutoRefresh:=True;
end;

[Allblus]

谢谢。我试试！！！

[Allblus]

上面的不可以选中多个，我试了好久也搞不出来可以copy多个文件，唉，苯啊。

[老之]

修改了一下：
ShellListView1.MultiSelect:=True;

procedure TForm1.ShellListView2DragDrop(Sender, Source: TObject; X,
Y: Integer);
var SourceName,DestName:string;
i:integer;
SL:TStringList;
begin
SL:=TStringList.Create;
for i:=0 to ShellListView1.Items.Count-1 do
if ShellListView1.Items.Item[i].Selected then
SL.Add(ShellListView1.Folders[i].PathName);
for i:=0 to SL.Count-1 do
begin
SourceName:=SL.Strings[i];
DestName:=ShellListView2.RootFolder.PathName+'\'+ExtractFileName(SourceName);
Copy(SourceName,DestName);
end;
FreeAndNil(SL);
end;

[Allblus]

谢谢你的帮忙，这个问题解决了，可还有其他问题，我都不要意思问了：）

现在写代码完全是ctrl+c,ctrll+v

唉！