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