ShellBrowser Delphi Components Documentation
ContentsIndexHome
Example

Adding the desktop as root to a TreeView:

var Node: TTreeNode;
begin
  Node := TreeView.Items.Add(nil, ShellBrowser.GetDesktopName);
  Node.ImageIndex := ShellBrowser.GetDesktopIconIndex;
  Node.SelectedIndex := ShellBrowser.GetDesktopIconIndex;
end;