diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-07-30 13:35:45 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-07-30 13:35:45 +0000 |
| commit | 652eefba21035b7688e7c4c9808b5e63d3649104 (patch) | |
| tree | 02d780a53b2d9832909222a1931603302f297714 /wizards/source/tools/Misc.xba | |
| parent | 6244c55206d64f73d9bbe8dfde238fe371d22789 (diff) | |
#89978# adapted to new registry settings
Diffstat (limited to 'wizards/source/tools/Misc.xba')
| -rw-r--r-- | wizards/source/tools/Misc.xba | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 2b60febc3b42..9ceb5d637706 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -78,8 +78,8 @@ Dim aLocLocale As New com.sun.star.lang.Locale Dim sLocale as String Dim sLocaleList(1) Dim oMasterKey - oMasterKey = GetRegistryKeyContent("org.openoffice.UserProfile/International/") - sLocale = oMasterKey.getByName("Locale") + oMasterKey = GetRegistryKeyContent("org.openoffice.Setup/L10N/") + sLocale = oMasterKey.getByName("ooLocale") sLocaleList() = ArrayoutofString(sLocale, "-") aLocLocale.Language = sLocaleList(0) If Ubound(sLocaleList()) > 0 Then @@ -101,11 +101,12 @@ End Function Function GetProductname() as String Dim oProdNameAccess as Object +Dim omyNames(100) as Object Dim sVersion as String Dim sProdName as String oProdNameAccess = GetRegistryKeyContent("org.openoffice.Setup/Product") - sProdName = oProdNameAccess.getByName("Name") - sVersion = oProdNameAccess.getByName("Version") + sProdName = oProdNameAccess.getByName("ooName") + sVersion = oProdNameAccess.getByName("ooSetupVersion") GetProductName = sProdName & "." & sVersion End Function |