Показать сообщение отдельно
  #5  
Старый 03.02.2015, 18:24
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
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. работает корректно.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием