openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From <jan-christ...@wienandt.de>
Subject Re: Versionsinfo von OpenOffice im AddIn auslesen
Date Mon, 05 Sep 2016 09:12:52 GMT
Moin,
 
> derzeit erweitere ich ein bestehendes AddIn für Open Office- Dafür ist
es
> nötig zu Reportingzwecken die Version des OpenOffice auszulesen. Nach
> mittlerweile mehreren Stunden des Suchens im Internet, habe ich immer
noch
> keine Möglichkeit gefunden. Gibt es seitens Open Office eine
Möglichkeit,
> die Version von open Office auszulesen? Wird die Version eventuell in
der
> Registry hinterlegt?

Folgendes sollte helfen, bei mir, Version 4.1.2, läuft es:

Sub ShowVersionOfOOo
    m=OOoVersion()
    msgbox m
 End Sub 




Function OOoVersion() As String
   'Retreives the running OOO version
   'Author : Laurent Godard
   'e-mail : listes.godard@laposte.net
   Dim aSettings, aConfigProvider
   Dim aParams2(0) As new com.sun.star.beans.PropertyValue
   Dim sProvider$, sAccess$
   sProvider = "com.sun.star.configuration.ConfigurationProvider"
   sAccess   = "com.sun.star.configuration.ConfigurationAccess"
   aConfigProvider = createUnoService(sProvider)
   aParams2(0).Name = "nodepath"
   aParams2(0).Value = "/org.openoffice.Setup/Product"
   aSettings = aConfigProvider.createInstanceWithArguments(sAccess,
aParams2())
   OOOVersion=aSettings.getByName("ooSetupVersion")
 End Function
 
Siehe auch:
http://www.dannenhoefer.de/faqstarbasic/WiekannmandieinstallierteVersionfeststel.html

Gruß
Jan

---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message