[weiden] 15205: use proper scancode to create upper-case hex numbers directly

use proper scancode to create upper-case hex numbers directly
Modified: trunk/reactos/lib/cpl/intl/locale.c
  _____  

Modified: trunk/reactos/lib/cpl/intl/locale.c
--- trunk/reactos/lib/cpl/intl/locale.c	2005-05-11 09:56:24 UTC (rev
15204)
+++ trunk/reactos/lib/cpl/intl/locale.c	2005-05-11 13:20:34 UTC (rev
15205)
@@ -95,6 +95,7 @@

 	HKEY langKey;
 	DWORD ret;
 	TCHAR value[9];
+	DWORD lenvalue;
 
 	ret = RegOpenKeyW(HKEY_CURRENT_USER, L"Control
Panel\\International", &localeKey);
 
@@ -105,9 +106,10 @@
 		return;
 	}
 
-	wsprintf(value, L"%04x", (DWORD)lcid);
+	wsprintf(value, L"%04X", (DWORD)lcid);
+	lenvalue = wcslen(value);
 
-	RegSetValueExW(localeKey, L"Locale", 0, REG_SZ, (BYTE *)
_wcsupr(value), sizeof(value));
+	RegSetValueExW(localeKey, L"Locale", 0, REG_SZ, (BYTE *)value,
lenvalue * sizeof(WCHAR));
 	RegCloseKey(localeKey);
 
 	// Set language
@@ -116,8 +118,8 @@
 	if (ret != ERROR_SUCCESS)
 		return;
 
-	RegSetValueExW(langKey, L"Default", 0, REG_SZ, (BYTE
*)_wcsupr(value), sizeof(value));
-	RegSetValueExW(langKey, L"InstallLanguage", 0, REG_SZ, (BYTE *)
_wcsupr(value), sizeof(value));
+	RegSetValueExW(langKey, L"Default", 0, REG_SZ, (BYTE *)value,
lenvalue * sizeof(WCHAR));
+	RegSetValueExW(langKey, L"InstallLanguage", 0, REG_SZ, (BYTE
*)value, lenvalue * sizeof(WCHAR));
 	RegCloseKey(langKey);
 }