Tipo de datos de determinados valores enteros

[Mick]

Solamente una pequeña correccion:

La comparacion,

Código Delphi [-]
if (SearchRec.Attr and faDirectory) =SearchRec.Attr  then
...

No es correcta, porque no se cumpliria el "if" si el directorio tuviese algun otro atributo activado, por ejemplo un directorio que ademas estuviese de solo lectura.

el codigo correcto seria asi:

Código Delphi [-]
if (SearchRec.Attr and faDirectory) <>0 then
  ...

o asi:

Código Delphi [-]
if (SearchRec.Attr and faDirectory) =faDirectory then
 ...

Saludos

[delphi.com.ar]

Tienes razón, me equivoqué al escribirlo, quise poner la última opción:

Código Delphi [-]
if (SearchRec.Attr and faDirectory) = faDirectory then

Saludos!

[[Gunman]]

Ya probé estos ejemplos pero no funcionan, al entrar en el directorio de Windows donde hay carpetas comprimidas, encriptadas, ocultas, protegidas, etc no las muestra. Por eso tuve que buscar todas las combinaciones.
Ya probé ese ejemplo que me facilitó un colega de #delphi, la web del truquillo: http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst
Muchas gracias por vuestro interés y sugerencias, pero como puedo hacer lo que os pregunté (si se puede), si no se puede hacer tendré que hacer un monton de if (... = ...) or (... = ...) then.
De nuevo, muchas gracias por vuestro interés y sugerencias, me estan ayudando mucho.

[[Gunman]]

Se me ha ocurrido una idea, seria cuestión de hacer algo parecido a esto:

Código Delphi [-]
var
Dirs: set of [Todoslosnumeracos];

El problema es que set solo admite valores enteros entre el 0 y el 255 como máximo. Alguien conoce otra expresión parecida al set pero que sirva para mi caso?

[delphi.com.ar]

¿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

[[Gunman]]

Delphi.com.ar. Efectivamente he probado el código y como te he dicho hay carpetas que no las muestra (uso Windows XP, por cierto).
Por el programilla que citas lo he descargado pero no puedo ejecutar ni el archivo Server9x.exe ni el archivo ServerNT.exe. El Client sí.

[[Gunman]]

Ya he solucionado el problema, muchas gracias. Una vez más ha sido culpa mia. Pongo aquí el código para que se muestren TODAS las carpetas (pero no los archivos):

Código Delphi [-]
  procedure TForm1.GetFolders(CurrLocalPath: String);
  var
     SearchRec: TSearchRec;
 begin
   TreeView.Items.Clear;
 
   SearchRec.ExcludeAttr := 32; 
   if FindFirst(IncludeTrailingPathDelimiter(CurrLocalPath)+'*.*', faAnyFile,
      SearchRec) = 0 then
       repeat
       if (SearchRec.Attr and faDirectory) = faDirectory) then
         TreeView.Items.Add(nil,SearchRec.Name);
     until FindNext(SearchRec) <> 0;
     FindClose(SearchRec);
 end;

No funcionaba porque habia mezclado vuestros dos códigos:

Código Delphi [-]
       {...}
 if (SearchRec.Attr and faDirectory) <> {<- aquí estaba el problema, sólo         
 mostraba los archivos, XDDDD, que estúpido} faDirectory) then
       {...}

Muchas gracias a todos los que habeis respondido y a Nailuj y Thread de #Delphi.