Markierung bei Treeview

[bitsetter]

Hallo,

man könnte beim Start des Programms folgenden Code ausführen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  with ShellTreeView1 do
    for i := 0 to Items.Count - 1 do
      if Folders[i].PathName= 'C:\Programme' then
      begin
        Items.Item[i].Selected:= true;
        break;
      end;
end;