Проблема с атрибутом faDirectory(FindFirst)

[m9ss]

Есть программа, кусок кода ниже, делает она следующее - просматривает директорию программы и с помощью labels выводит сначала папки, а потом и файлы, причем на labels стоит обработчик кликов при условии что это файл а не папка. Все замечательно работает, пока я все это не запишу на CD диск. При запуске программы с диска папки почему то воспринимаются как файлы, т.е. все папки на диске попадают под условие search.Attr<>faDirectory, и я понять не могу косяк это в программе, или же атрибут неверно определяется из за самой Delphi.

if FindFirst(dir+'\*.*', faAnyFile, search) = 0 then
begin
  repeat
    if (search.Name<>'.') and (search.Name<>'..') and (search.Attr=faDirectory)
    then CreateLabels(search, true);
  until FindNext(search) <> 0;
FindClose(search);
end;
if FindFirst(dir+'\*.*', faAnyFile, search) = 0 then
begin
  repeat
    if (search.Name<>'.') and (search.Name<>'..') and (search.Attr<>faDirectory)
    then CreateLabels(search, false);
  until FindNext(search) <> 0;
FindClose(search);
end;

[Stilet]

НУ во-первых, можно дополнительно проверить FileExist файл это или нет, а во-вторых, помоему там нужно что-то типа такого:

(search.Attr = (faDirectory and not faanyfile)

[m9ss]

Сообщение от Stilet

НУ во-первых, можно дополнительно проверить FileExist файл это или нет, а во-вторых, помоему там нужно что-то типа такого:

(search.Attr = (faDirectory and not faanyfile)

ну если даже папки не попадают под условие (search.Attr=faDirectory)
то под условие faDirectory and not faanyfile я думаю тоже не будут попадать.
Так же заметил что если у папки допустим сменить ярлык, то даже без записи на диск она тоже воспринимается как файл, FileExist можно попробовать, если не найду другого решения.

P.S. Записывать пробовал разными способами и разными программами...

[alexBlack]

Нужно проверять как битовую маску:

(search.Attr and faDirectory) <> 0

(А на CD к атрибутам добавляется faReadOnly)

[m9ss]

Сообщение от alexBlack

Нужно проверять как битовую маску:

(search.Attr and faDirectory) <> 0

(А на CD к атрибутам добавляется faReadOnly)

Спасибо помогло.