请问怎样在shelltreeview控件中实现树节点的多选？

Question

在选择时按住Shift，选择多个节点，并把节点的路径记录到数组中？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  TTreeView(ShellTreeView1).MultiSelect := True;
end;procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
var
  I: Integer;
begin
  Memo1.Clear;
  for I := 0 to ShellTreeView1.SelectionCount - 1 do
    Memo1.Lines.Add(TShellFolder(ShellTreeView1.Selections[I].Data).PathName);
end;

Answer 2

TTreeView(ShellTreeView1).MultiSelectStyle := [msControlSelect,msShiftSelect];

Answer 3

能否帮忙顶一下？
http://community.csdn.net/Expert/topic/3095/3095447.xml?temp=.3237879