Per Delphi mit laufender Word-Instanz verbinden / WORD OLE

[toms]

Hi,

Du könntest zuerst mit FindWindow nach 'OpusApp'
(Femsterklasse von MSWord) suchen.
Wenn FindWindow 0 zurück gibt, dann läuft Word nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Word: TWordApplication;
  WordWnd: HWND;
begin
  WordWnd := FindWindow('OpusApp', nil);
  if WordWnd <> 0 then
  begin
    Word := TWordApplication.Create(nil);
    try
        Word.ConnectKind := ckRunningInstance;
        Word.Connect;
        ShowMessage(Word.ActiveDocument.Name);
        Word.Disconnect;
    finally
      Word.Free;
    end;
  end;
end;