¿Seguro que lo has probado bien?
Por ejemplo
este proyecto lo hace preguntando:
Código Delphi
[-]if (sr.Attr and faDirectory) <> 0 then
Si quieres pruebalo, ejecuta el Server9x.exe y conectate con Client.exe (no te dejan nada instalado).
PD: El ejemplo del link es tal cual lo comentado anteriormente