如何提取 TShellListView 中所选文件的名称？

Question

我查了一下有没有人问过这个问题，好像没有。我觉得这很奇怪，因为很容易从 TShellTreeView.Path 中提取路径，并且您可以获得完全限定的路径。

然而，我尽我所能在编辑器中查看类本身的所有属性和方法 - 没有文档 - 以及我能找到的唯一可能的字符串属性，其中 tlistitems 的标题是空白的。此外，“选定”属性结果为空白。

所以问题很简单，如何提取在 TShellListView 组件中选择的任何文件的名称。另外，我确实有四个 Shell 组件链接并工作，您可以选择一个驱动器，浏览目录结构，选择一个掩码并浏览到您想要的文件。

蒂亚·

安德鲁

Answer 1

如果您没有激活 MultiSelect 属性，请检查 SelectedFolder.PathName 属性，否则您可以迭代 Items 并检查 Selected 属性。

试试这个

function GetSelectedFiles(ShellListView : TShellListView) : TStringList;
var
  Index : Integer;
begin
  Result:=TStringList.Create;
  if not ShellListView.MultiSelect then
    Result.Add(ShellListView.SelectedFolder.PathName)
  else
  for Index := 0 to ShellListView.Items.Count-1 do
    if ShellListView.Items[Index].Selected AND (not ShellListView.Folders[Index].IsFolder) then
      Result.Add(ShellListView.Folders[Index].PathName);
end;