Date: prev next · Thread: first prev next last
2013 Archives by date, by thread · List index


Just to point you to some other options. The basic library Tools that comes with LibreOffice contains a few interesting macros related to this. You need to load the library first then you can use GetProductName.

    BasicLibraries.LoadLibrary("Tools")
    msgbox GetProductName

If you need more detailed information you can look in the registry (xcu-files) using the helper-function GetRegistryKeyContent.
    BasicLibraries.LoadLibrary("Tools")
    oKey = GetRegistryKeyContent("/org.openoffice.Setup/Product")
    msgbox oKey.ooName
    msgbox oKey.ooSetupVersionAboutBox

The GetRegistryKeyContent basically does what Milkos did for you. Use xray to inspect oKey for more possibilities.
These functions is available in AOO as well.

Regards,
Niklas Johansson

Thomas Krumbein skrev 2013-11-15 15:49:
Hi Miklos,

yes, thanks, that might be a practible way at this time.

Nevertheless - it is not a solution for the future.

I guess, there should be an implementation of the original product name,
version-number (major and minor) and actuall product name.

This should be easy accessible even for unexpierienced macro developers.

I will do a feature request or this :)


best regards
Thomas



Am 15.11.2013 14:11, schrieb Miklos Vajna:
Hi,

On Fri, Nov 15, 2013 at 01:43:38PM +0100, Thomas Krumbein <thomas.krumbein@documentfoundation.org> 
wrote:
Thanks for this - I know the xcu files. But this is not an easy access
for (Basic-) macros. The way to do is: Search for this file, parse this
file and extract the vendor name... for basic marcos a very long way.
Why not use the css::configuration::ConfigurationProvider API instead?

I mean something like:

oProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
Dim aParams(0) As new com.sun.star.beans.PropertyValue
aParams(0).Name = "nodepath"
aParams(0).Value = "/org.openoffice.Setup/Product"
oSettings = oProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", 
aParams)
xray oSettings.getByName("ooName")
HTH,

Miklos



Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.