Vorgang nicht verfügbar bei Word Doc öffnen

[Chemiker]

Hallo Overclock,

dann Teste mal ob eine MSWord-Instans offen ist.

Delphi-Quellcode:

function TOLEObj.OleObjAktive(strApplicationsName: String): boolean;
var
  ClassID: TCLSID;
  Unknown: IUnknown;
begin
  try
    ClassID := ProgIDToClassID(strApplicationsName);
    Result := GetActiveObject(ClassID, nil, Unknown) = S_OK;
  except
    Result := False;
  end;
end;

Delphi-Quellcode:

If OleObjAktive('Word.Application') then
  ShowMessage('Alles Klar')
else
 ShowMessage('Nicht offen')

Word:=GetActiveOleObject('Word.Application');

Bis bald Chemiker