Hallo,
Mit getAtiveOleObject erhält man die IDispatch -Schnittstelle des aktuellen
OLE-Objects.
Falls das
OLE-Object existiert (hier Excel/Word) kann man das
OLE-Object mit Quit schließen.
(Quit muss natürlich vom
OLE-Object bereitgestellt werden).
Wenn das
OLE-Object nicht existiert wird es im EXCEPT-Block erzeugt und dann geschlossen
(setzt vorraus das Excel/Word installiert).
Der Code ist jetzt einfach gehalten.
Wenn man mit getActiveOleObject arbeitet schließt er die aktuelle Instanz. (Excel/Word mehrfach starten, dann im Taskmanager beobachten).
http://docwiki.embarcadero.com/Libra...ctiveOleObject
https://docs.microsoft.com/de-de/vis...w?view=vs-2019
Gruß