DirectoryListBox + Carpetas ocultas
 

Hola Muchachos, Buen dia, estoy necesitando hacer que en el Directory listbox se muestren las carpetas ocultas.
Saben como puedo modificar el

Código Delphi [-]
function TDirectoryListbox.ReadDirectoryNames(const ParentDirectory: string;
  DirectoryList: TStringList): Integer;

Bueno simplemente edite esta linea y listo!!!!

Código Delphi [-]
Status := FindFirst(SlashSep(ParentDirectory, '*.*'),{faDirectory,} faAnyFile, SearchRec);