Re: [de-users] Version von LO auslesen

Hallo Werner, *,

ich habe das Problem jetzt mit Hilfe aus dem OOo-Forum lösen können.
Es existierte schon länger ein Code, der aber so im Prinzip nichts
anderes machte als getSolarVersion(). In diesem Code war aber ein Array
drin, das alle notwendigen Informationen bereit hielt. Hier der
Komplettcode der Funktion:

------------------
FUNCTION OfficeVersion() AS STRING
  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())
  OfficeVersion = aSettings.ooName + "|" + aSettings.ooSetupVersionAboutBox
END FUNCTION
-------------------

Damit bekomme ich die Office Version (LibreOffice oder OpenOffice) sowie
hinter dem senkrechten Strich die komplette Version, z.B. 4.1.5.3

Gruß

Robert

-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert