关于ShellTreeView1的显示限制问题?如何只让ShellTreeView1显示各盘符而不显示'我的电脑','控制面板'等

解决方案 »

  1.   

    procedure TForm1.ShellTreeView1Expanded(Sender: TObject; Node: TTreeNode);
    var
      I: Integer;
    begin
      for I := TShellTreeView(Sender).TopItem.Count - 1 downto 0 do
      begin
        with TShellTreeView(Sender).TopItem[I] do
          if SameText('控制面板', Text) then
          begin
            Delete;
            Break;
          end;
      end;
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
      ShellTreeView1.Root := 'rfMyComputer';
    end;