szBinarize[img_?ImageQ /; ImageColorSpace[img] === "Grayscale", marker_?BinaryImageQ, dpixelValue_?NumericQ] /; ImageDimensions[img] === ImageDimensions[marker] := Module[
{vals, result},
vals = Values@
ComponentMeasurements[{img,
MorphologicalComponents[marker]}, {"Mask", "Mean"}];
result = Function[{mask, mean},
SelectComponents[
Binarize[img, {-dpixelValue, dpixelValue} + mean],
Total[Flatten[#Mask*mask]] > 0.001 &]
] @@@ vals;
HighlightImage[
img,