GRAZIE! Ora provo a tradurre quanto mi hai mandato in linguaggio Pascal: se funziona sono a posto! CIAO!
Mancio >>-----Messaggio originale----- >>Da: Fabio [mailto:[EMAIL PROTECTED] >>Inviato: venerd� 18 febbraio 2005 19.25 >>A: [email protected] >>Oggetto: Re: [dev-it] Quale versione � installata? >> >>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] >> >> --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
