TWordApplication aus TService starten

[Thomas Barghusen]

Hallo,<br>
<br>
ich habe mit dem Delphi-5-Assistenten einen NT-Dienst geschrieben, der<br>
Word starten soll, jedoch funktioniert die Methode ".Connect" nicht, <br>
und im TaskManager bleibt WinWord.exe zurück ohne dass ich es schliessen <br>
kann.<br>
<br>
Meine function sieht folgendermassen aus:<br>
<br>
procedure TService1.ServiceExecute(Sender: TService);<br>
var<br>
WordApplication1 : TWordApplication;<br>
WordDocument1 : TWordDocument;<br>
begin<br>
//---WordObjekte erzeugen--------------------<br>
WordApplication1 := TWordApplication.Create(self);<br>
WordDocument1 := TWordDocument.Create(self);<br>
<br>
//document anlegen---------------------------<br>
WordApplication1.Connect;<br>
WordApplication1.Visible := TRUE;<br>
WordDocument1.Connect;<br>
.<br>
.<br>
.<br>
end;<br><br>