Cybb20
Super User
Joined: 02 Mar 2004
Posts: 1569
Location: Frankfurt, Germany
|
 Posted: Mon Aug 30, 2004 5:55 am Post subject: |
 |
|
I just copy and paste the following macro from Andrew Pitonyak's document:
| Code: |
Function OOoVersion() As String
'Retrieves 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
|
Hope that helps.
Christian
_________________
- Knowledge is Power - |
|
