Hallo Uwe
Uwe Kerstan schrieb:
es wäre doch nett, wenn man die Version direkt abfragen könnte.
GetProductVersion könnte ich mir gut vorstellen.
Du, als Software Engineer bei Sun könntest das intern
zur Diskussion stellen - du sitzt an der Quelle. :-)
Suchst nach sowas:
Sub ShowVersionOfOOo
m=OOoVersion()
msgbox m
End Sub
Function OOoVersion() As String
'Retreives the running OOO version
'Author : Laurent Godard
'e-mail : [EMAIL PROTECTED]
'
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
Kam gerade in http://de.openoffice.info/viewtopic.php?f=18&t=17004
Gruß Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
