Guten Morgen,
wenn der Pfadname bereits ermittelt wurde, dann muss er eigentlich nicht mehr gesucht werden:
Delphi-Quellcode:
procedure TShellForm.FormCreate(Sender: TObject);
begin
ShellTreeView.Path := 'C:\Programme'; // GetSpecialFolderLocation(CSIDL_PROGRAM_FILES{$26});
end;
Grüße vom marabu