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
--
Ariel Constenla-Haile
La Plata, Argentina
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
