+ vorm Ordnere in der ShellTreeView

[bitsetter]

Man könnte noch im onExpanding das Aufklappen verhindern:

Delphi-Quellcode:

procedure TForm1.ShellTreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  if Node <> ShellTreeView1.Items.Item[0] then
    AllowExpansion := false;
end;

Edit: Code geändert, habe noch was besseres gefunden.