mmh, an undocumented service ... with a not really known API. I can
image that such a service can be really helpful and we should maybe
think about a well designed and documented one.
So please don't expect that this code will work in the future as well.
It will be hopefully replaced with something more reliable.
Juergen
Ariel Constenla-Haile wrote:
Hello Jan,
On Sunday 23 August 2009, 20:32, Jan Holst Jensen wrote:
Hi all.
A month or two ago someone asked this same question but I don't recall
seeing an answer. How can you close the OpenOffice Quickstarter tray
icon on Windows ? The only way I know is to manually right-click the
tray icon and choose "Exit Quickstarter" but I would really like to do
this programatically.
the quickstarter listens for desktop termination.
AFAIK you have to options
1) You can tell it not to throw a veto, this way:
Sub Quickstater
Dim oQS as Object
oQS = CreateUnoService("com.sun.star.office.Quickstart")
oQS.setFastPropertyValue(0, FALSE)
End Sub
You will still see the systray icon, but when you close the last application
window, the quickstarter closes itself and the office process will finish.
2) fully disabling it, closing it if opened:
Sub Quickstater
Dim oQS as Object
oQS = CreateUnoService("com.sun.star.office.Quickstart")
Dim aAny(1)
aAny(0) = False
aAny(1) = False
oQS.initialize(aAny)
End Sub
Regards
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
