请问一下,如何获得TShelllistview控件中,如何获得选择的所有文件名?

Question

请问一下,如何获得TShelllistview控件中,如何获得选择的所有文件名?

Answer 1

var i:integer;
begin
 for i:=0 to ShellListView.Items.Count-1 do
   if  ShellListView1Items[i].Selected then
    ShowMessage(ShellListView.Folders[i].DisplayName);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Memo1.Clear;
  for I := 0 to ShellListView1.Items.Count - 1 do
    if ShellListView1.Items[I].Selected then
      Memo1.Lines.Add(
        ShellListView1.Folders[I].PathName
      );
end;