Testen, ob Word schon läuft

[martin j]

Hallo,

ich verwende die TWordApplication-Komponente zum starten von Word und zum Einfügen von Daten in ein Dokument. Funktioniert alles auch soweit ganz gut.

Nun möchte ich aber testen können, ob Word bereits läuft, damit ich weiß, ob ichs nach dem Einfügen geöffnet lassen muß.
Wie kann ich das testen?
Außerdem möchte ich festlegen können, ob eine laufende Wordinstanz benutzt wird oder eine zusätzliche gestartet wird.
Welche Möglichkeiten hab ich da?

MfG
Martin J.

[Stefan Schreier]

Hallo Martin,<BR>
Da gibt es mindestens 3 Möglichkeiten:<BR>
1.
die Funktion GetActiveOleObject(const ClassName: string): IDispatch;
Wenn das Klassenobjekt oder die IDispatch-Schnittstelle nicht ermittelt werden konnten, löst GetActiveOleObject eine EOleSysError-Exception aus.<BR>
2.
die WinAPI FindWindow(). Ihr übergibst du den Klassennamen OpusApp (=Word).
3.
die TWordApplikation Komponente besitzt das Property ConnectKind welches auf den Wert ckRunningInstance gesetzt werden kann.
Hier kannst du mal untersuchen, ob eine Exception ausgelöst wird, wenn keine Instanz von Word läuft. Wenn eine Exception ausgelöst wird, hast du Glück und kannst wie gewünscht darauf reagieren.<BR><BR>
Grüsse
Stefa