获取/设置 TShellListView 路径/文件夹作为字符串（不使用 .Root）

Question

我想设置 TShellListView 的路径以使用 Delphi 2007 显示文件目录。我最初可以使用 TShellListView.Root 来设置根路径，如下所示，它显示我想要的目录：

View := TShellListView.Create(Self);
// ...
View.Root := 'C:\Windows';

但是如果用户导航离开该目录使用退格键，我尝试将 .Root 设置回原始目录，显示的目录没有改变。 看起来 .Root 是为了定义 shell 命名空间的根，而不是当前目录。

此外，如果用户四处导航（使用退格键等），.Root 属性不会更新以反映当前显示的路径。 没有像 TShellTreeView 那样的 .Path 属性。

我想要的是一种获取和设置当前路径作为字符串的方法，而不需要将 TShellListView 链接到 TShellTreeView 并设置 TShellTreeView.Path 或破解 ShellCtrls.pas，因为 TShellListView 的相关方法看起来都是私有的。 我发现很难相信没有一种直接的方法来获取/设置路径，所以我假设我在这里遗漏了一些简单的东西，但这个组件根本没有记录。

Answer 1

获取当前加载的路径

ShellListView1.RootFolder.PathName

您可以使用设置 Root 属性来 ，但当您以交互方式更改文件夹时，它不会更新。 所以你需要强迫它认为有变化。 如果您总是将其重置为相同的原始路径，则此方法有效：

ShellListView1.Root := View.RootFolder.PathName; // Updates to current location
ShellListView1.Root := 'C:\Windows';

或者，对于任意路径，您可以添加/删除尾随 \ 以欺骗 SetRoot 中的 SameText 检查：

if ShellListView1.Root[Length(ShellListView1.Root)] = '\' then
  ShellListView1.Root := ExcludeTrailingPathDelimiter(ANewPath)
else
  ShellListView1.Root := IncludeTrailingPathDelimiter(ANewPath);

Answer 2

要以字符串形式获取当前文件夹，您可以访问 RootFolder 属性。

procedure TForm2.Button1Click(Sender: TObject);
begin
  showmessage(ShellListView1.RootFolder.PathName);
end;

要将当前文件夹设置为字符串，请使用 root-property。

procedure TForm2.Button2Click(Sender: TObject);
begin
  ShellListView1.Root := 'C:\windows';
end;