GetUserDefaultUILanguage

[Manuel Valdenebro]

I would like to use GetUserDefaultUILanguage() Windows function, to know default language in every machine. I had does with ShellExecute, but xHarbour compiler warning "external function". Any help?

Regards

[Antonio Linares]

Manuel,

You can implement it using DLL FUNCTION ... or using C language with #pragma BEGINDUMP ... #pragma ENDDUMP

[nageswaragunupudi]

Mr Antonio

Would you like to include a wrapper function to this etUserDefaultUILanguage in the next FWH version ? This could be useful for many programmers

[Manuel Valdenebro]

Antonio, here is:

#pragma BEGINDUMP
HB_FUNC(GETLANGUAGE)
{
hb_retnl( GetUserDefaultUILanguage( ) ) ;
}
#ENDDUMP

Thanks for your help.

[Antonio Linares]

Manuel,

Don't forget to use the right includes:

Code: Select all  Expand view

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( GETUSERDEFAULTUILANGUAGE )
{
   hb_retnl( GetUserDefaultUILanguage( ) ) ;
}

#pragma ENDDUMP


[Manuel Valdenebro]

Manuel,

Don't forget to use the right includes:

Antonio

I had done. It is running ok.

Regards and thanks

[patrickmast]

I had done. It is running ok.

It does not return anything here. Does ik on your end?

Patrick

[Antonio Linares]

Patrick,

You should get a number. Please try:

MsgInfo( GETUSERDEFAULTUILANGUAGE() )

[Manuel Valdenebro]

It does not return anything here. Does ik on your end?

As said Antonio, that function would be back a number. That number corresponding for the following countries and languages:

1078: 'af', # Afrikaans - South Africa
1052: 'sq', # Albanian - Albania
1118: 'am', # Amharic - Ethiopia
1025: 'ar', # Arabic - Saudi Arabia
5121: 'ar', # Arabic - Algeria
15361: 'ar', # Arabic - Bahrain
3073: 'ar', # Arabic - Egypt
2049: 'ar', # Arabic - Iraq
11265: 'ar', # Arabic - Jordan
13313: 'ar', # Arabic - Kuwait
12289: 'ar', # Arabic - Lebanon
4097: 'ar', # Arabic - Libya
6145: 'ar', # Arabic - Morocco
8193: 'ar', # Arabic - Oman
16385: 'ar', # Arabic - Qatar
10241: 'ar', # Arabic - Syria
7169: 'ar', # Arabic - Tunisia
14337: 'ar', # Arabic - U.A.E.
9217: 'ar', # Arabic - Yemen
1067: 'hy', # Armenian - Armenia
1101: 'as', # Assamese
2092: None, # Azeri (Cyrillic)
1068: None, # Azeri (Latin)
1069: 'eu', # Basque
1059: 'be', # Belarusian
1093: 'bn', # Bengali (India)
2117: 'bn', # Bengali (Bangladesh)
5146: 'bs', # Bosnian (Bosnia/Herzegovina)
1026: 'bg', # Bulgarian
1109: 'my', # Burmese
1027: 'ca', # Catalan
1116: None, # Cherokee - United States
2052: 'zh', # Chinese - People's Republic of China
4100: 'zh', # Chinese - Singapore
1028: 'zh', # Chinese - Taiwan
3076: 'zh', # Chinese - Hong Kong SAR
5124: 'zh', # Chinese - Macao SAR
1050: 'hr', # Croatian
4122: 'hr', # Croatian (Bosnia/Herzegovina)
1029: 'cs', # Czech
1030: 'da', # Danish
1125: 'dv', # Divehi
1043: 'nl', # Dutch - Netherlands
2067: 'nl', # Dutch - Belgium
1126: None, # Edo
1033: 'en', # English - United States
2057: 'en', # English - United Kingdom
3081: 'en', # English - Australia
10249: 'en', # English - Belize
4105: 'en', # English - Canada
9225: 'en', # English - Caribbean
15369: 'en', # English - Hong Kong SAR
16393: 'en', # English - India
14345: 'en', # English - Indonesia
6153: 'en', # English - Ireland
8201: 'en', # English - Jamaica
17417: 'en', # English - Malaysia
5129: 'en', # English - New Zealand
13321: 'en', # English - Philippines
18441: 'en', # English - Singapore
7177: 'en', # English - South Africa
11273: 'en', # English - Trinidad
12297: 'en', # English - Zimbabwe
1061: 'et', # Estonian
1080: 'fo', # Faroese
1065: None, # Farsi
1124: None, # Filipino
1035: 'fi', # Finnish
1036: 'fr', # French - France
2060: 'fr', # French - Belgium
11276: 'fr', # French - Cameroon
3084: 'fr', # French - Canada
9228: 'fr', # French - Democratic Rep. of Congo
12300: 'fr', # French - Cote d'Ivoire
15372: 'fr', # French - Haiti
5132: 'fr', # French - Luxembourg
13324: 'fr', # French - Mali
6156: 'fr', # French - Monaco
14348: 'fr', # French - Morocco
58380: 'fr', # French - North Africa
8204: 'fr', # French - Reunion
10252: 'fr', # French - Senegal
4108: 'fr', # French - Switzerland
7180: 'fr', # French - West Indies
1122: 'fy', # Frisian - Netherlands
1127: None, # Fulfulde - Nigeria
1071: 'mk', # FYRO Macedonian
2108: 'ga', # Gaelic (Ireland)
1084: 'gd', # Gaelic (Scotland)
1110: 'gl', # Galician
1079: 'ka', # Georgian
1031: 'de', # German - Germany
3079: 'de', # German - Austria
5127: 'de', # German - Liechtenstein
4103: 'de', # German - Luxembourg
2055: 'de', # German - Switzerland
1032: 'el', # Greek
1140: 'gn', # Guarani - Paraguay
1095: 'gu', # Gujarati
1128: 'ha', # Hausa - Nigeria
1141: None, # Hawaiian - United States
1037: 'he', # Hebrew
1081: 'hi', # Hindi
1038: 'hu', # Hungarian
1129: None, # Ibibio - Nigeria
1039: 'is', # Icelandic
1136: 'ig', # Igbo - Nigeria
1057: 'id', # Indonesian
1117: 'iu', # Inuktitut
1040: 'it', # Italian - Italy
2064: 'it', # Italian - Switzerland
1041: 'ja', # Japanese
1099: 'kn', # Kannada
1137: 'kr', # Kanuri - Nigeria
2144: 'ks', # Kashmiri
1120: 'ks', # Kashmiri (Arabic)
1087: 'kk', # Kazakh
1107: 'km', # Khmer
1111: None, # Konkani
1042: 'ko', # Korean
1088: 'ky', # Kyrgyz (Cyrillic)
1108: 'lo', # Lao
1142: 'la', # Latin
1062: 'lv', # Latvian
1063: 'lt', # Lithuanian
1086: 'ms', # Malay - Malaysia
2110: 'ms', # Malay - Brunei Darussalam
1100: 'ml', # Malayalam
1082: 'mt', # Maltese
1112: None, # Manipuri
1153: 'mi', # Maori - New Zealand
1102: 'mr', # Marathi
1104: 'mn', # Mongolian (Cyrillic)
2128: 'mn', # Mongolian (Mongolian)
1121: 'ne', # Nepali
2145: 'ne', # Nepali - India
1044: 'no', # Norwegian (Bokmￃﾥl)
2068: 'no', # Norwegian (Nynorsk)
1096: 'or', # Oriya
1138: 'om', # Oromo
1145: None, # Papiamentu
1123: 'ps', # Pashto
1045: 'pl', # Polish
1046: 'pt', # Portuguese - Brazil
2070: 'pt', # Portuguese - Portugal
1094: 'pa', # Punjabi
2118: 'pa', # Punjabi (Pakistan)
1131: 'qu', # Quecha - Bolivia
2155: 'qu', # Quecha - Ecuador
3179: 'qu', # Quecha - Peru
1047: 'rm', # Rhaeto-Romanic
1048: 'ro', # Romanian
2072: 'ro', # Romanian - Moldava
1049: 'ru', # Russian
2073: 'ru', # Russian - Moldava
1083: None, # Sami (Lappish)
1103: 'sa', # Sanskrit
1132: None, # Sepedi
3098: 'sr', # Serbian (Cyrillic)
2074: 'sr', # Serbian (Latin)
1113: 'sd', # Sindhi - India
2137: 'sd', # Sindhi - Pakistan
1115: 'si', # Sinhalese - Sri Lanka
1051: 'sk', # Slovak
1060: 'sl', # Slovenian
1143: 'so', # Somali
1070: None, # Sorbian
3082: 'es', # Spanish - Spain (Modern Sort)
1034: 'es', # Spanish - Spain (Traditional Sort)
11274: 'es', # Spanish - Argentina
16394: 'es', # Spanish - Bolivia
13322: 'es', # Spanish - Chile
9226: 'es', # Spanish - Colombia
5130: 'es', # Spanish - Costa Rica
7178: 'es', # Spanish - Dominican Republic
12298: 'es', # Spanish - Ecuador
17418: 'es', # Spanish - El Salvador
4106: 'es', # Spanish - Guatemala
18442: 'es', # Spanish - Honduras
58378: 'es', # Spanish - Latin America
2058: 'es', # Spanish - Mexico
19466: 'es', # Spanish - Nicaragua
6154: 'es', # Spanish - Panama
15370: 'es', # Spanish - Paraguay
10250: 'es', # Spanish - Peru
20490: 'es', # Spanish - Puerto Rico
21514: 'es', # Spanish - United States
14346: 'es', # Spanish - Uruguay
8202: 'es', # Spanish - Venezuela
1072: None, # Sutu
1089: 'sw', # Swahili
1053: 'sv', # Swedish
2077: 'sv', # Swedish - Finland
1114: None, # Syriac
1064: 'tg', # Tajik
1119: None, # Tamazight (Arabic)
2143: None, # Tamazight (Latin)
1097: 'ta', # Tamil
1092: 'tt', # Tatar
1098: 'te', # Telugu
1054: 'th', # Thai
2129: 'bo', # Tibetan - Bhutan
1105: 'bo', # Tibetan - People's Republic of China
2163: 'ti', # Tigrigna - Eritrea
1139: 'ti', # Tigrigna - Ethiopia
1073: 'ts', # Tsonga
1074: 'tn', # Tswana
1055: 'tr', # Turkish
1090: 'tk', # Turkmen
1152: 'ug', # Uighur - China
1058: 'uk', # Ukrainian
1056: 'ur', # Urdu
2080: 'ur', # Urdu - India
2115: 'uz', # Uzbek (Cyrillic)
1091: 'uz', # Uzbek (Latin)
1075: 've', # Venda
1066: 'vi', # Vietnamese
1106: 'cy', # Welsh
1076: 'xh', # Xhosa
1144: None, # Yi
1085: 'yi', # Yiddish
1130: 'yo', # Yoruba
1077: 'zu', # Zulu

Regards

[patrickmast]

You should get a number. Please try:
MsgInfo( GETUSERDEFAULTUILANGUAGE() )

Yes, works now. Don't know wat I did wrong first time.

Patrick

[patrickmast]

As said Antonio, that function would be back a number. That number corresponding for the following countries and languages:

Ok, thanks!

I made this PRG function for it:

Code: Select all  Expand view

Function GetUserDefaultLanguage(n)
LOCAL nLang,nScan
LOCAL aLang:={{1078,"af","Afrikaans - South Africa"},;
              {1052,"sq"," Albanian - Albania"},;
              {1118,"am","Amharic - Ethiopia"},;
              {1025,"ar","Arabic - Saudi Arabia"},;
              {5121,"ar","Arabic - Algeria"},;
              {15361,"ar","Arabic - Bahrain"},;
              {3073,"ar","Arabic - Egypt"},;
              {2049,"ar","Arabic - Iraq"},;
              {11265,"ar","Arabic - Jordan"},;
              {13313,"ar","Arabic - Kuwait"},;
              {12289,"ar","Arabic - Lebanon"},;
              {4097,"ar","Arabic - Libya"},;
              {6145,"ar","Arabic - Morocco"},;
              {8193,"ar","Arabic - Oman"},;
              {16385,"ar","Arabic - Qatar"},;
              {10241,"ar","Arabic - Syria"},;
              {7169,"ar","Arabic - Tunisia"},;
              {14337,"ar","Arabic - U.A.E."},;
              {9217,"ar","Arabic - Yemen"},;
              {1067,"hy","Armenian - Armenia"},;
              {1101,"as","Assamese"},;
              {2092,"None","Azeri (Cyrillic)"},;
              {1068,"None","Azeri (Latin)"},;
              {1069,"eu","Basque"},;
              {1059,"be","Belarusian"},;
              {1093,"bn","Bengali (India)"},;
              {2117,"bn","Bengali (Bangladesh)"},;
              {5146,"bs","Bosnian (Bosnia/Herzegovina)"},;
              {1026,"bg","Bulgarian"},;
              {1109,"my","Burmese"},;
              {1027,"ca","Catalan"},;
              {1116,"None","Cherokee - United States"},;
              {2052,"zh","Chinese - People's Republic of China"},;
              {4100,"zh","Chinese - Singapore"},;
              {1028,"zh","Chinese - Taiwan"},;
              {3076,"zh","Chinese - Hong Kong SAR"},;
              {5124,"zh","Chinese - Macao SAR"},;
              {1050,"hr","Croatian"},;
              {4122,"hr","Croatian (Bosnia/Herzegovina)"},;
              {1029,"cs","Czech"},;
              {1030,"da","Danish"},;
              {1125,"dv","Divehi"},;
              {1043,"nl","Dutch - Netherlands"},;
              {2067,"nl","Dutch - Belgium"},;
              {1126,"None","Edo"},;
              {1033,"en","English - United States"},;
              {2057,"en","English - United Kingdom"},;
              {3081,"en","English - Australia"},;
              {10249,"en","English - Belize"},;
              {4105,"en","English - Canada"},;
              {9225,"en","English - Caribbean"},;
              {15369,"en","English - Hong Kong SAR"},;
              {16393,"en","English - India"},;
              {14345,"en","English - Indonesia"},;
              {6153,"en","English - Ireland"},;
              {8201,"en","English - Jamaica"},;
              {17417,"en","English - Malaysia"},;
              {5129,"en","English - New Zealand"},;
              {13321,"en","English - Philippines"},;
              {18441,"en","English - Singapore"},;
              {7177,"en","English - South Africa"},;
              {11273,"en","English - Trinidad"},;
              {12297,"en","English - Zimbabwe"},;
              {1061,"et","Estonian"},;
              {1080,"fo","Faroese"},;
              {1065,"None","Farsi"},;
              {1124,"None","Filipino"},;
              {1035,"fi","Finnish"},;
              {1036,"fr","French - France"},;
              {2060,"fr","French - Belgium"},;
              {11276,"fr","French - Cameroon"},;
              {3084,"fr","French - Canada"},;
              {9228,"fr","French - Democratic Rep. of Congo"},;
              {12300,"fr","French - Cote d'Ivoire"},;
              {15372,"fr","French - Haiti"},;
              {5132,"fr","French - Luxembourg"},;
              {13324,"fr","French - Mali"},;
              {6156,"fr","French - Monaco"},;
              {14348,"fr","French - Morocco"},;
              {58380,"fr","French - North Africa"},;
              {8204,"fr","French - Reunion"},;
              {10252,"fr","French - Senegal"},;
              {4108,"fr","French - Switzerland"},;
              {7180,"fr","French - West Indies"},;
              {1122,"fy","Frisian - Netherlands"},;
              {1127,"None","Fulfulde - Nigeria"},;
              {1071,"mk","FYRO Macedonian"},;
              {2108,"ga","Gaelic (Ireland)"},;
              {1084,"gd","Gaelic (Scotland)"},;
              {1110,"gl","Galician"},;
              {1079,"ka","Georgian"},;
              {1031,"de","German - Germany"},;
              {3079,"de","German - Austria"},;
              {5127,"de","German - Liechtenstein"},;
              {4103,"de","German - Luxembourg"},;
              {2055,"de","German - Switzerland"},;
              {1032,"el","Greek"},;
              {1140,"gn","Guarani - Paraguay"},;
              {1095,"gu","Gujarati"},;
              {1128,"ha","Hausa - Nigeria"},;
              {1141,"None","Hawaiian - United States"},;
              {1037,"he","Hebrew"},;
              {1081,"hi","Hindi"},;
              {1038,"hu","Hungarian"},;
              {1129,"None","Ibibio - Nigeria"},;
              {1039,"is","Icelandic"},;
              {1136,"ig","Igbo - Nigeria"},;
              {1057,"id","Indonesian"},;
              {1117,"iu","Inuktitut"},;
              {1040,"it","Italian - Italy"},;
              {2064,"it","Italian - Switzerland"},;
              {1041,"ja","Japanese"},;
              {1099,"kn","Kannada"},;
              {1137,"kr","Kanuri - Nigeria"},;
              {2144,"ks","Kashmiri"},;
              {1120,"ks","Kashmiri (Arabic)"},;
              {1087,"kk","Kazakh"},;
              {1107,"km","Khmer"},;
              {1111,"None","Konkani"},;
              {1042,"ko","Korean"},;
              {1088,"ky","Kyrgyz (Cyrillic)"},;
              {1108,"lo","Lao"},;
              {1142,"la","Latin"},;
              {1062,"lv","Latvian"},;
              {1063,"lt","Lithuanian"},;
              {1086,"ms","Malay - Malaysia"},;
              {2110,"ms","Malay - Brunei Darussalam"},;
              {1100,"ml","Malayalam"},;
              {1082,"mt","Maltese"},;
              {1112,"None","Manipuri"},;
              {1153,"mi","Maori - New Zealand"},;
              {1102,"mr","Marathi"},;
              {1104,"mn","Mongolian (Cyrillic)"},;
              {2128,"mn","Mongolian (Mongolian)"},;
              {1121,"ne","Nepali"},;
              {2145,"ne","Nepali - India"},;
              {1044,"no","Norwegian"},;
              {2068,"no","Norwegian (Nynorsk)"},;
              {1096,"or","Oriya"},;
              {1138,"om","Oromo"},;
              {1145,"None","Papiamentu"},;
              {1123,"ps","Pashto"},;
              {1045,"pl","Polish"},;
              {1046,"pt","Portuguese - Brazil"},;
              {2070,"pt","Portuguese - Portugal"},;
              {1094,"pa","Punjabi"},;
              {2118,"pa","Punjabi (Pakistan"},;
              {1131,"qu","Quecha - Bolivia"},;
              {2155,"qu","Quecha - Ecuador"},;
              {3179,"qu","Quecha - Peru"},;
              {1047,"rm","Rhaeto-Romanic"},;
              {1048,"ro","Romanian"},;
              {2072,"ro","Romanian - Moldava"},;
              {1049,"ru","Russian"},;
              {2073,"ru","Russian - Moldava"},;
              {1083,"None","Sami (Lappish)"},;
              {1103,"sa","Sanskrit"},;
              {1132,"None","Sepedi"},;
              {3098,"sr","Serbian (Cyrillic)"},;
              {2074,"sr","Serbian (Latin)"},;
              {1113,"sd","Sindhi - India"},;
              {2137,"sd","Sindhi - Pakistan "},;
              {1115,"si","Sinhalese - Sri Lanka"},;
              {1051,"sk","Slovak"},;
              {1060,"sl","Slovenian"},;
              {1143,"so","Somali"},;
              {1070,"None","Sorbian"},;
              {3082,"es","Spanish - Spain (Modern Sort)"},;
              {1034,"es","Spanish - Spain (Traditional Sort)"},;
              {11274,"es","Spanish - Argentina"},;
              {16394,"es","Spanish - Bolivia"},;
              {13322,"es","Spanish - Chile"},;
              {9226,"es","Spanish - Colombia"},;
              {5130,"es","Spanish - Costa Rica"},;
              {7178,"es","Spanish - Dominican Republic"},;
              {12298,"es","Spanish - Ecuador"},;
              {17418,"es","Spanish - El Salvador"},;
              {4106,"es","Spanish - Guatemala"},;
              {18442,"es","Spanish - Honduras"},;
              {58378,"es","Spanish - Latin America"},;
              {2058,"es","Spanish - Mexico"},;
              {19466,"es","Spanish - Nicaragua"},;
              {6154,"es","Spanish - Panama"},;
              {15370,"es","Spanish - Paraguay"},;
              {10250,"es","Spanish - Peru"},;
              {20490,"es","Spanish - Puerto Rico"},;
              {21514,"es","Spanish - United States"},;
              {14346,"es","Spanish - Uruguay"},;
              {8202,"es","Spanish - Venezuela"},;
              {1072,"None","Sutu"},;
              {1089,"sw","Swahili"},;
              {1053,"sv","Swedish"},;
              {2077,"sv","Swedish - Finland"},;
              {1114,"None","Syriac"},;
              {1064,"tg","Tajik"},;
              {1119,"None","Tamazight (Arabic)"},;
              {2143,"None","Tamazight (Latin)"},;
              {1097,"ta","Tamil"},;
              {1092,"tt","Tatar"},;
              {1098,"te","Telugu"},;
              {1054,"th","Thai"},;
              {2129,"bo","Tibetan - Bhutan"},;
              {1105,"bo","Tibetan - People's Republic of China"},;
              {2163,"ti","Tigrigna - Eritrea"},;
              {1139,"ti","Tigrigna - Ethiopia"},;
              {1073,"ts","Tsonga"},;
              {1074,"tn","Tswana"},;
              {1055,"tr","Turkish"},;
              {1090,"tk","Turkmen"},;
              {1152,"ug","Uighur - China"},;
              {1058,"uk","Ukrainian"},;
              {1056,"ur","Urdu"},;
              {2080,"ur","Urdu - India"},;
              {2115,"uz","Uzbek (Cyrillic)"},;
              {1091,"uz","Uzbek (Latin)"},;
              {1075,"ve","Venda"},;
              {1066,"vi","Vietnamese"},;
              {1106,"cy","Welsh"},;
              {1076,"xh","Xhosa"},;
              {1144,"None","Yi"},;
              {1085,"yi","Yiddish"},;
              {1130,"yo","Yoruba"},;
              {1077,"zu","Zulu"}}

nLang:=GetUserDefaultUILanguage()

IF n=NIL .OR. n>3
   RETURN nLang
ENDIF

nScan:=AScan(aLang,{|x|x[1]=nLang})
IF nScan=0
   IF n=1
      RETURN 0
   ELSE
      RETURN ""
   ENDIF
ENDIF

RETURN aLang[nScan][n]

Hope you like it

Patrick

[demont frank]

Working with EXCEL it can be important to know the languages , espacially when formula's are built.

In dutch we use 'SOM' , in english 'SUM' , and i think there are others

It would be nice to have a table with the languages and this words

Frank

[patrickmast]

Working with EXCEL it can be important to know the languages , espacially when formula's are built.

In dutch we use 'SOM' , in english 'SUM' , and i think there are others

Yes, but "SUM" also works in a Dutch Excell, right? So, you can always use the English formula terms.

Patrick