Bonjour
merci francois ;)
à noter que depuis quelques temps (OOo 2.x iirc), on peut utiliser
egalement "ooSetupVersionAboutBox" qui donne la version complete sur 3
chiffres
HTH
Laurent
function getVersionOOO() as string
'recupère version de OOo
dim aSettings
aSettings = getConfigSetting("/org.openoffice.Setup/Product", false)
getVersionOOO=aSettings.getbyname("ooSetupVersionAboutBox")
end function
function getConfigSetting(target as string, forUpdate as boolean)
' retourne le noeud de config demandé
' exemple: aSettings = getConfigSetting(
"/org.openoffice.Office.Common/Path/Current", false)
dim service as String ' nom du service d'acces à la configuration
dim aSettings, aConfigProvider
dim aParams(0) As new com.sun.star.beans.PropertyValue
if forUpdate then
service = "com.sun.star.configuration.ConfigurationUpdateAccess"
else
service = "com.sun.star.configuration.ConfigurationAccess"
endif
aConfigProvider = createUnoService(
"com.sun.star.configuration.ConfigurationProvider" )
aParams(0).Name = "nodepath"
aParams(0).Value = target
aSettings = aConfigProvider.createInstanceWithArguments(service,
aParams() )
getConfigSetting = aSettings
end function
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org