ShellTreeView "expandieren"

[Sharky]

Hai F.W.,

schneller wird es wohl nicht werden. Es müssen ja alle Verzeichnisse durchwühlt werden.

Du kannst nur deinen Code einfacher machen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellTreeView1.Items.BeginUpdate;
  ShellTreeView1.Items[0].Expand(true);
  ShellTreeView1.Items.EndUpdate;
end;