Как узнать, открыт документ или нет ?

[Zlоy]

Собственно вопрос. Нужно просто узнать, открыт документ в видимом режиме или нет, не открывая сам документ. Как это сделать средствами API Компаса ?

[SlАviАТiоn]

Примерно может так:

fnIsOpen(YourName: string): Boolean;
var
  DocPar: DocumentParam;
  refDoc: Reference;
begin
  Result:=False;
  refDoc:=ksGetCurrentDocument(0);
  if refDoc0 then
  begin
    GetObjParam(refDoc, DocPar, @DocumentParam,
      Sizeof (DocumentParam), ALLPARAM);
    if StrPas(DocPar.FileName) = YourName then Result:=True;
  end;
end;

[Zlоy]

Спасибо, конечно, но вобщем уже не надо ;-)