Проверка открытия файла

[Buddy]

Добрый день!
Как средствами языка можно проверить, открыт ли файл по некоторому пути? Файл - Excel-таблица. Путь может быть сетевым, а сам файл может быть открыт и на другой машине, необязательно на той, на которой запускается проверка. Нужно выяснить, не открыт ли он, и если уже открыт, выдать сообщение.
Я сделал проверку на наличие в папке с проверяемым файлом файла с именем "~$" + [имя файла], но это ненадежный способ.

[KVS]

В теории, можно сделать так:

Код: Выделить всё

ExecProgram('powershell', 'CMD /C "openfiles /query /s ИМЯ_СЕРВЕРА /fo csv | find /I ""*.xlsx"""|Out-File -FilePath c:\открытые_файлы.txt', pfDontWait, 0)

Полученный "открытые_файлы.txt" анализировать объектом file.

[Den]

Без попытки открыть файл фиг знает как
А так ...как то так

Код: Выделить всё

   _try
  {
   OpenFile('c:\temp\123.xls',StOpen);
  }
    _Except
    On ExFileSharingViolation :{
     Message('Нарушение разделения файла!', Error);
     abort;
     exit;
    }

В документации много исключений может выбрасывать Openfile Найдете...

[edward_K]

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