Проверка занятости файла другими процессами

[kotov-zhenja]

Разрабатываю программу сканирующую ВСЕ файлы для поиска там значения, проблема заключаться в том, что имеются файлы занятые другими процессами. Использование IsOpen не дает 100% результат, что можно еще использовать?

[kotov-zhenja]

Использую TFileStream

[Stilet]

М.м.м... Попытка открыть эксклюзивно. Не знаю что за IsOpen такой.
Теоретически еще можно открывать процессы и получать список открытых ими хендлов. Где-то была у мну пример функции, могу поискать, но ИМХО этого делать не стоит. Если файл не открыт, нужно просто уведомить пользователя после сканинга что такой-то требует повторения открытия.

[kotov-zhenja]

IsOpen показывает занят ли файл, работает отлично пока дело не доходит до системных файлов, тут он не работает

у TextFile есть проверка IOResult, может у TFileStream тоже есть что то на подобие

[Stilet]

Нет. FileStream окучивается в Try Except и так обрабатывает ошибки.

[kotov-zhenja]

А что насчет эксклюзивности? Уж очень много файлов попадают в этот список

[Stilet]

Ну эксклюзивность все равно только проверит
Забоченные файлы все равно будут попадать.
Проверить можно примерно так

try with TFileStream.Create(Файл,fmShareExclusive) do free; except Файл злочен; end;

Писано с потолка, за подробности и качество не ручаюсь.

[Vapaamies]

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

FileStream окучивается в Try Except и так обрабатывает ошибки.

Не знаю, как в новых версиях, а в Borland Delphi у TFileStream был безобразно реализован совместный доступ к создаваемым им самим файлам -- созданный в программе файл нельзя было просматривать в Far до его закрытия. Если в новых версиях исправили, хорошо.

К задаче ТС это касательства не имеет, просто хочу показать, что TFileStream -- спорный класс.

По теме задачи ничего сказать не могу. Несмотря на недостатки TFileStream, мне как-то хватало его исключений.

[kotov-zhenja]

Файл открывается, но вот при чтение вылетает ошибка, при что файл занят другим процессом, хотя файл открывается в блокноте

[kotov-zhenja]

В ХЕ6 TFileStream работает более стабильно чем TextFile, может есть что то более стабильное?