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

Автор Zlоy, 30.07.04, 21:53:52

« предыдущая - следующая »

0 Пользователей и 1 гость просматривают эту тему.

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

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