如何从 TRzShellTree.OnAddItem 事件处理程序中的 PItemIDList 参数中提取文件夹路径？

Question

在 Windows 10 in Delphi 11 Alexandria 的 32 位 VCL 应用程序中，我有一个 TRzShellTree 控件（来自 Konopka Signature VCL Controls 7.0 的 Ray Konopka，可在得到它）：

object RzShellTree1: TRzShellTree
  Left = 0
  Top = 41
  Width = 201
  Height = 428
  Align = alLeft
  BaseFolder.Pidl = {
    004301000014001F50E04FD020EA3A6910A2D808002B30309D19002F433A5C00
    00000000000000000000000000000000000054003100000000003D5465581100
    44454C50484900003E0009000400EFBE1423F90E42549B502E00000000930F00
    000001000000000000000000000000000000DFED4800440045004C0050004800
    4900000016005A0031000000000042546956100053757065724D525500004200
    09000400EFBE2154F655425469562E000000210A000000004B00000000000000
    0000000000000000C43CDA00530075007000650072004D005200550000001800
    660031000000000042546F56100050524F4A45437E3100004E0009000400EFBE
    4254695642546F562E00000043EB0A0000000B00000000000000000000000000
    000008E22E00500052004F004A004500430054002000470052004F0055005000
    5300000018000000}
  Indent = 19
  ReadOnly = True
  SelectionPen.Color = clBtnShadow
  TabOrder = 0
  OnChange = RzShellTree1Change
  OnDragOver = RzShellTree1DragOver
end

...在 TRzShellTree.OnAddItem 事件处理程序中，我需要获取每个添加的文件夹的路径：

procedure TformMain.RzShellTreeGroupsAddItem(Sender: TObject; ParentIShf: IShellFolder_NRC; ParentAbsIdList, ItemRelIdList: PItemIDList; Attribs: Integer; var AllowAdd: LongBool);
begin
  // How to get the PATH of the added folder?
end;

我假设这可以通过从 ItemRelIdList: PItemIDList 参数中提取路径来完成。但我不知道该怎么做。

Answer 1

如果您需要完整路径，则将 ParentAbsIdList 和 ItemRelIdList 列表组合成一个新的绝对 PItemIDList 列表：

How do I convert a relative PIDL into an absolute PIDL?

然后使用SHGetPathFromIDList().

或者，您可以使用 ParentIShf.GetDisplayNameOf()，将其传递 ItemRelIdList as-is。如果您仅指定 SHGDN_FORPARSING 标志，您将取回子项的完整路径。如果包含 SHGDN_INFOLDER 标志，您将返回子项相对于其父项的路径。

RzShellUtils 单元提供了使用 PItemIDList 的实用函数。例如， ConcatIdLists()（和 ShellMemFree()）、ShellGetPathFromIdList() 和 ShellGetFriendlyNameFromIdList()：

Path := ShellGetFriendlyNameFromIdList(ParentIShf, ItemRelIdList, fnForParsing);

Answer 2

RzShellUtils 单元包含许多有用的函数来处理这类事情。特别是，

uses
  RzShellUtils;

procedure TForm13.RzShellTree1AddItem(Sender: TObject; ParentIShf: IShellFolder_NRC; ParentAbsIdList,
  ItemRelIdList: PItemIDList; Attribs: Integer; var AllowAdd: LongBool);
var
  S: string;
begin
  S := ShellGetPathFromIdList( ItemRelIdList );
  CodeSite.Send( 'S', S );
end;

如何从 TRzShellTree.OnAddItem 事件处理程序中的 PItemIDList 参数中提取文件夹路径？

How to extract the folder path from PItemIDList parameter in TRzShellTree.OnAddItem event handler?

shell

delphi

winapi

delphi-11-alexandria