| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 2.3.38 Wie kann man die installierte Version feststellen?
Die Information steht in den Setupdaten. Mit einer Funktion von Laurent Godard kann man diese auslesen. Sub ShowVersionOfOOo m=OOoVersion() msgbox m End Sub Function OOoVersion() As String 'Retreives 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 |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009