shellcombobox nur unterordner

[toms]

Hallo

Bei mir funktioniert's so:

Delphi-Quellcode:

procedure TForm1.ShellComboBox1DropDown(Sender: TObject);
begin
  // Root löschen, SubFolders werden jedoch nicht gelöscht.
  ShellComboBox1.ItemsEx.Delete(0); 
end;