ShellTreeView "expandieren"

[toms]

Zitat:

Aber das dauert so lange! Hat das schonmal jemand versucht, als er als Root den Arbeitsplatz eingestellt hatte

Mal ehrlich gesagt: was macht das für einen Sinn, den gesamten Arbeitsplatz aufzuklappen?
Der Baum wird ja dann riesengross!!

Zitat:

Wie kann ich einen kompletten TShellTreeView aufklappen,

So geht's schneller:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := 0;
  ShellTreeView1.Items.BeginUpdate;
  try
    while I <= ShellTreeView1.Items.Count - 1 do begin
      ShellTreeView1.Items[I].Expanded := True;
      Inc(I);
    end;
  finally
    ShellTreeView1.Items.EndUpdate;
  end;
end;