Re: [dev-it] Quale versione =?ISO-8859-1?Q?=E8_installata=3F?=

[Fabio]

Mancio in data 18/02/2005 17.21 ha scritto:
Ciao,
sono un nuovo "utente" di openoffice.
Devo scrivere un'applicazione con Delphi che lavora con OpenOffice. Il mio
problema � il seguente: come faccio a sapere quale versione di openoffice �
installata sul PC su cui verr� installato il programma?
 

Non conosco il delphi, per farlo via macro esiste una funzione scritta 
da Laurent Godard e riportata sul Pitonyak
il codice � il seguente:

Function OOoVersion() As String
   'Retrieves 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

Spero che possa esserti utile
Ciao
Fabio
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]