Source position: shellctrls.pas line 111
protected procedure TCustomShellTreeView.DoAddItem(
const ABasePath: string;
const AFileInfo: TSearchRec;
var CanAdd: Boolean
);