Club Builder

[Pedro]

Hola amigos:
mi pregunta es la siguiente:
Como puedo hacer para que los directorios ocultos se muestren en un DirectoryListBox ?

He visto este codigo en un grupo de google, pero no se como utilizarlo, de todas formas, si hay alguna manera mejor, me gustaria que me ayudaseis...

Muchas gracias por todo.

[Pedro (otra vez)]

Lo he puesto en Unit1.h y funciona el código siguiente, es decir muestra los directorios ocultos... PERO NO LOS DIRECTORIOS OCULTOS QUE CUELGAN DIRECTAMENTE DEL RAIZ. Como puedo hacer para que me muestre los del raiz tambien? que modificación he de hacer?

El codigo es este:

class TDirectoryListBoxEx : public TDirectoryListBox
{
protected:
virtual void __fastcall BuildList()
{
TDirectoryListBox::BuildList();
Items->BeginUpdate();
try
{
const int attr = faDirectory | faHidden;
TSearchRec sr;
if (FindFirst(Directory + "\\*.*", attr, sr) == NO_ERROR)
{
if (sr.Attr & faHidden && sr.Attr & faDirectory)
{
Items->AddObject(sr.Name, ClosedBMP);
}
try
{
while (FindNext(sr) == NO_ERROR)
{
if (sr.Attr & faHidden && sr.Attr & faDirectory)
{
Items->AddObject(sr.Name, ClosedBMP);
}
}
}
catch (...)
{
FindClose(sr);
throw;
}
FindClose(sr);
}
}
catch (...)
{
Items->EndUpdate();
}
Items->EndUpdate();
}

public:
__fastcall TDirectoryListBoxEx(TComponent* AOwner) :
TDirectoryListBox(AOwner) {}
};