Source position: shellctrls.pas line 42
type TObjectTypes = set of (
otFolders,
otNonFolders,
otHidden
);