Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

FindFirst и скрытые файлы

Страницы: 1
FindFirst и скрытые файлы
#1
21.06.2010 20:00:08
Вот такой вот код:
Код
if FindFirst(path + '*.*', faDirectory or faHidden, sr) = 0 then...

решительно отказывается видеть скрытые системные файлы. Где я ошибся?
 
 
#2
21.06.2010 21:16:45
Помойму вместо
Цитата
faDirectory or faHidden
нужно так:
faHidden or faSysFile

Вот сама процедура:

Код
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 SearchResult : TSearchRec;
begin
 FileSetAttr('D:\1.txt', faHidden);
 FileSetAttr('D:\1.txt', faSysFile);
 if FindFirst('D:\*.*', faHidden or faSysFile, SearchResult)=0
  then
   begin
     Form1.Caption:=SearchResult.Name;
   end;
 FindClose(SearchResult);
end;


Всё прекрасно находит smile8)
Изменено: Valera - 21.06.2010 21:19:39
 
 
#3
10.01.2012 09:45:47
кстати
1)мне надо описание программы сканирования памяти диска вместе с вхождением в подкаталоги

2) я обычно программирую на паскале, можно ли преодолеть в паскале длинные имени файлов кто сможет помогите пожалуйста!!!
Заранее спасибо
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)