[Страдалецъ]

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

[cotseec]

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

[NumLock]

когда документ открыт рядом появляется файл имя которого начинается с ~$ в нем имя пользователя.

[Страдалецъ]

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

когда документ открыт рядом появляется файл имя которого начинается с ~$ в нем имя пользователя.

Если бы это 100% работало, я бы и не поднял тему. Но ворд имеет гадкую особенность эпизодически оставлять эти хвостики за собой, особенно при совместном использовании документа. Как временную заплатку, так можно делать, я так и сделал, все-же хоть какая-то проверка. А вот как бы это с помощью самого ворда замутит, но боюсь такого открытого метода нет.

[NumLock]

Код:

uses
  ActiveX, ComObj,
...
function IsRunning(const PathName: string): Boolean;
var
  bc: IBindCtx;
  mk: IMoniker;
begin
  OleCheck(CreateBindCtx(0, bc));
  OleCheck(CreateFileMoniker(PChar(PathName), mk));
  Result:=mk.IsRunning(bc, nil, nil)=S_OK;
end;

компилировал на Delphi 2010, проверял на сетевых и локальных файлах с MS Word 2010. работает корректно.

[Страдалецъ]

Читал я про эту штуку IMoniker. Даже пример его использования скачивал, но он там в итоге запускал тот-же ворд, я и бросил не разбираясь в причинах Попробуем. Как я понял из описания этого интерфеса, приложение которое мы опрашиваем должно уметь использовать эти интерфесы, ворд как раз умеет, но для чего-то иного может и не сработать.