Как программно определить, что файл уже кем-то открыт?

[AlexSoft777]

Не могу решить задачу:
Открываю из моей программы некий текстовый файл.
Как мне сделать, чтобы я мог определить другой моей программой, что этот текстовый файл уже открыт?

[Serge_Bliznykov]

1) а зачем Вам нужно это определять?!
А если у Вас просто прав на открытие файла нет?

2) по простому, например, можно использовать Try ... Except ... -
и на excption - действия при невозможности открытия файла


p.s. надеюсь, Вы знаете, что файл можно открывать в режимах
mShareExclusive, fmShareDenyWrite, fmShareDenyRead, fmShareDenyNone ?!

[AlexSoft777]

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

p.s. надеюсь, Вы знаете, что файл можно открывать в режимах
mShareExclusive, fmShareDenyWrite, fmShareDenyRead, fmShareDenyNone ?!

Не знаю. Подскажите где можно прочесть об этом?
А задача такая:

1) Открываю файл из первой программы.
2) Нужно, чтобы я не мог открыть этот же файл из другой программы. Проверить: уже открыть данный файл или нет?

[Пепел Феникса]

тогда вам надо открыть файл экслюзивном режиме(fmShareDenyExclusive) в первой программе.
и во второй программе при TFileStream.Create вылетит исключение.
инфа по этому легко гуглится.

[AlexSoft777]

Сообщение от Пепел Феникса

тогда вам надо открыть файл экслюзивном режиме(fmShareDenyExclusive) в первой программе.
и во второй программе при TFileStream.Create вылетит исключение.
инфа по этому легко гуглится.

Спасибо за подсказку! Буду разбираться.

[Человек_Борща]

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

[Aliens_wolfs]

Попробуй эту функцию:

//Проверить на занятость файла
function ApplicationUse(fName: string): boolean;
var
  HFileRes: HFILE;
begin
  HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE, 0, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then CloseHandle(HFileRes);
end;

Пример использования

if ApplicationUse('Имя вашего файла') then 
showmessage('файл открыт')
else
showmessage('файл закрыт')