Открыть занятый файл.

[Kukkk]

Здравствуйте. Пишу программу, она должна следить за другой программой, которая время от времени вносит изменения в файл. Так вот столкнулся с одной проблемой,моя программа иногда пытается прочесть этот файл одновременно с той программой,что вызывает ошибку. Скажите пожалуйста, как прочесть уже занятый файл? Помню такое уже было на форуме, к сожалению не смог найти((

[Air]

А по моему ни как. Я так свои проги и файлы защищаю и ни кто не может ни удалить, ни прочесть, тем более изминить.
Если только в проге, которая что-то пишет, закрывать файл время от времени, а во второй поставить обработчик:

try
<код, где возможна ошибка>
except
<если ошибка, то выполнется этот код>
end;

или использовать глобальные "переменные" (что б знать когда файл закрыт)

AddGlobalAtom// - добавить
GetGlobalAtom// - получить
DeleteGlobalAtom// - удалить

Функция GetGlobalAtom, по имени возвращает значение, если оно не "0", то значит такое имя сушествует (кажется).

Если не удалять атом, то он удалится после перезагрузки Винды.

[mutabor]

Я думаю что можно, есть же программы к-рые могут удалить любой файл.

[Air]

Знаю такие, сам пробовал писать, главное
-1- найти прогу которая заняла файл и ласково попросить освободить его.
-2- просто считать этот файл по секторам диска.

По секторам читать умеет WinHex 12.x, я с её помощью SAM и SYSTEM файлы копировал, а они (как известно) тоже заняты системой.

[Serge_Bliznykov]

Kukkk попробуйте, в момент, когда файл "занят" его содержимое можно увидеть, например, в Far manager по Alt-F3 (это встроенный просмотрщик).
Если отроется (думаю, вероятность этого 99%) то копайте в сторону измения FileMode, например так:

{$I-}
...
  assign(f1,paramstr(1));
  FileMode := 2;
  FName := ParamStr(1);
  reset(f1,1);
  IR := IOResult;
  if (IR=5) or (IR=163) then begin {open as SHAREBLE}
       WriteLn('ВНИМАНИЕ! Файл '+FName+' уже открыт другим пользователем.');
       WriteLn('Открываем файл в разделяемом режиме');
       FileMode := $C2;
       reset(f1,1);
       IR := IOResult
  end;

или копайте в сторону открытия файла через FileStream - ReadOnly + share mode... (читайте хелп по TFileStream.Create(...)

[Kukkk]

Спасибо! Щас буду пробовать)