FiveTech Software tech support forums

Hi all,

How can I get Windows Default Language using GetProfString???

Apparently the way of getting this setting is missing from testini2.prg since FWH2.4, causing it to crash...

Byron,
In some places, (like in Brazil) even in the FW 2.4 testini2.prg runs with error.
to fix it, place the line:
cMsg := csLanguage
after the line:
/* Which language is Windows set to USE ? */
Regards,
Euclides

Bayron,

How can I get Windows Default Language

2 API-functions :

DLL32 FUNCTION GetUsDeLaI( );
AS _INT PASCAL;
FROM "GetUserDefaultLangID" LIB "KERNEL32"

DLL32 FUNCTION GetUsDeLCI( );
AS LONG PASCAL;
FROM "GetUserDefaultLCID" LIB "KERNEL32"

My Test :

MsgAlert( GetUsDeLaI( ) )
// RETURNS : 1031 = German (Standard)

The needed LANGUAGE-return ID's !!!

*!* List All Supported Languages and Their ID's

*!* Arabic (Saudi Arabia) 1025
*!* Arabic (Iraq) 2049
*!* Arabic (Egypt) 3073
*!* Arabic (Libya) 4097
*!* Arabic (Algeria) 5121
*!* Arabic (Morocco) 6145
*!* Arabic (Tunisia) 7169
*!* Arabic (Oman) 8193
*!* Arabic (Yemen) 9217
*!* Arabic (Syria) 10241
*!* Arabic (Jordan) 11265
*!* Arabic (Lebanon) 12289
*!* Arabic (Kuwait) 13313
*!* Arabic (U.A.E.) 14337
*!* Arabic (Bahrain) 15361
*!* Arabic (Qatar) 16385
*!* Bulgarian 1026
*!* Catalan 1027
*!* Chinese (Taiwan) 1028
*!* Chinese (PRC) 2052
*!* Chinese (Hong Kong SAR 3076
*!* Chinese (Singapore) 4100
*!* Czech 1029
*!* Danish 1030
*!* German (Standard) 1031
*!* German (Swiss) 2055
*!* German (Austrian) 3079
*!* German (Luxembourg) 4103
*!* German (Liechtenstein) 5127
*!* Greek 1032
*!* English (United States) 1033
*!* English (United Kingdom) 2057
*!* English (Australian) 3081
*!* English (Canadian) 4105
*!* English (New Zealand) 5129
*!* English (Ireland) 6153
*!* English (South Africa) 7177
*!* English (Jamaica) 8201
*!* English (Caribbean) 9225
*!* English (Belize) 10249
*!* English (Trinidad) 11273
*!* Spanish (Traditional Sort) 1034
*!* Spanish (Mexican) 2058
*!* Spanish (Modern Sort) 3082
*!* Spanish (Guatemala) 4106
*!* Spanish (Costa Rica) 5130
*!* Spanish (Panama) 6154
*!* Spanish (Dominican Republic) 7178
*!* Spanish (Venezuela) 8202
*!* Spanish (Colombia) 9226
*!* Spanish (Peru) 10250
*!* Spanish (Argentina) 11274
*!* Spanish (Ecuador) 12298
*!* Spanish (Chile) 13322
*!* Spanish (Uruguay) 14346
*!* Spanish (Paraguay) 15370
*!* Spanish (Bolivia) 16394
*!* Spanish (El Salvador) 17418
*!* Spanish (Honduras) 18442
*!* Spanish (Nicaragua) 19466
*!* Spanish (Puerto Rico) 20490
*!* Finnish 1035
*!* French (Standard) 1036
*!* French (Belgian) 2060
*!* French (Canadian) 3084
*!* French (Swiss) 4108
*!* French (Luxembourg) 5132
*!* Hebrew 1037
*!* Hungarian 1038
*!* Icelandic 1039
*!* Italian (Standard) 1040
*!* Italian (Swiss) 2064
*!* Japanese 1041
*!* Korean 1042
*!* Korean (Johab) 2066
*!* Dutch (Standard) 1043
*!* Dutch (Belgian) 2067
*!* Norwegian (Bokmal) 1044
*!* Norwegian (Nynorsk) 2068
*!* Polish 1045
*!* Portuguese (Brazil) 1046
*!* Portuguese (Portugal) 2070
*!* Romanian 1048
*!* Russian 1049
*!* Croatian 1050
*!* Serbian (Latin) 2074
*!* Serbian (Cyrillic) 3098
*!* Slovak 1051
*!* Albanian 1052
*!* Swedish 1053
*!* Swedish (Finland) 2077
*!* Thai 1054
*!* Turkish 1055
*!* Indonesian 1057
*!* Ukrainian 1058
*!* Belarusian 1059
*!* Slovenian 1060
*!* Estonian 1061
*!* Latvian 1062
*!* Lithuanian 1063
*!* Farsi 1065
*!* Vietnamese 1066
*!* Basque 1069
*!* Afrikaans 1078
*!* Faeroese 1080
*!* Declare GetUserDefaultLCID API Function

DECLARE LONG GetUserDefaultLCID IN WIN32API

*!* Get Language ID *****

?GetUserDefaultLCID()

NAME

GetUserDefaultLangID (KERNEL32.@)

SYNOPSIS
LANGID GetUserDefaultLangID
(
)

DESCRIPTION

Get the default language Id for the current user.

Best Regards
Uwe

Thanks for the help....

Bayron,

do You still need to change the language from inside Your appl.

Best Regards
Uwe i

The problem I had was, that csLanguage was returning ESG, wich is Spanish for Guatemala, so I changed



for



and now everything is fine and dandy...

ukoenig wrote:Bayron,

do You still need to change the language from inside Your appl.

Best Regards
Uwe i

Hi Uwe,
I just needed to find out wich language was the Default in Windows, in case the user has not set up the Default language in my App...

Thanks...