Get Language OS

[xinyiman]

Hello, someone can tell me how I can recover the language used by the operating system? Primarily for windows, but if anyone knows for linux. Thanks

[lainz]

Hello, someone can tell me how I can recover the language used by the operating system? Primarily for windows, but if anyone knows for linux. Thanks

See here:
http://wiki.lazarus.freepascal.org/Translations_/_i18n_/_localizations_for_programs

[xinyiman]

I wanted to know if in my XP system I'm using the Italian or English or another, I can not understand what the center with what I've suggested. And if there is cross-platform solution.

[Avishai]

If I'm understanding your question, SysLocale.DefaultLCID will gire you the default Locale as a number, which will tell you what the computer location is set to.

type TSysLocale = packed record
  DefaultLCID: LCID;
  PriLangID: LANGID;
  SubLangID: LANGID;
  FarEast: Boolean;
  MiddleEast: Boolean;
end;

[xinyiman]

And how do I know the correspondence between ID and country code? That is, how do I know which code is Italy, which code has the cake and so on?

[Avishai]

Add a TListBox and a TButton to a Form and then add this code to the OnClick event of the button.

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:= 0 to Languages.Count-1 do begin
    ListBox1.Items.Add(Languages.Name+' : '+IntToStr(Languages.LocaleID));
  end;
end;

[xinyiman]

Hint: Start of reading config file c:\lazarus\fpc\2.4.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file c:\lazarus\fpc\2.4.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.4.2 [2011/03/08] for i386
Copyright (c) 1993-2010 by Florian Klaempfl
Target OS: Win32 for i386
Compiling project1.lpr
Compiling unit1.pas
unit1.pas(23,28) Hint: Parameter "Sender" not used
unit1.pas(24,28) Hint: Parameter "Sender" not used
unit1.pas(71,25) Error: Identifier not found "Languages"
unit1.pas(72,33) Error: Identifier not found "Languages"
unit1.pas(72,63) Error: Identifier not found "Languages"
unit1.pas(130) Fatal: There were 3 errors compiling module, stopping

[Avishai]

Sorry for misleading you.  The code I gave is for Delphi.  I don't think it will work in Lazarus.

[jixian.yang]

On linux it is GetEnvironmentVariable('LANG');

  for i := 1 to GetEnvironmentVariableCount do
    Memo1.Lines.Add(GetEnvironmentString(i));


And get language with Delphi there should be []:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:= 0 to Languages.Count-1 do begin
    ListBox1.Items.Add(Languages.Name[I]+' : '+IntToStr(Languages.LocaleID[I]));
  end;
end;

[jixian.yang]

Code: [Select]

function GetLocaleInformation(Flag: integer): string;
var
  pcLCA: array[0..20] of char;
begin
  if (GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0) then
  begin
    pcLCA[0] := #0;
  end;
  Result := pcLCA;
end;

{$ENDIF}

function GetLocaleLanguage: string;
begin
  {$IFDEF MSWINDOWS}
   Result := GetLocaleInformation(LOCALE_SENGLANGUAGE);
  {$ELSE}
   Result := SysUtils.GetEnvironmentVariable('LANG');
  {$ENDIF}
end;                       

[Fred vS]

@Jixiang.Yang
Nice shot, many thanks 

[xinyiman]

Thanks It's ok

  {$IFDEF MSWINDOWS}
function GetLocaleInformation(Flag: integer): string;
var
  pcLCA: array[0..20] of char;
begin
  if (GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0) then
  begin
    pcLCA[0] := #0;
  end;
  Result := pcLCA;
end;

{$ENDIF}

function GetLocaleLanguage: string;
begin
  {$IFDEF MSWINDOWS}
   Result := GetLocaleInformation(LOCALE_SENGLANGUAGE);
  {$ELSE}
   Result := SysUtils.GetEnvironmentVariable('LANG');
  {$ENDIF}
end;   

[jwdietrich]

Sorry for replying lately to this rather old post, but it may still be interesting.

In my programs I use the following code:

Code: Pascal  [Select][+][-]

1. function GetOSLanguage: string;
2.   {platform-independent method to read the language of the user interface}
3. var
4.   l, fbl: string;
5.   {$IFDEF LCLCarbon}
6.   theLocaleRef: CFLocaleRef;
7.   locale: CFStringRef;
8.   buffer: StringPtr;
9.   bufferSize: CFIndex;
10.   encoding: CFStringEncoding;
11.   success: boolean;
12.   {$ENDIF}
13. begin
14.   {$IFDEF LCLCarbon}
15.   theLocaleRef := CFLocaleCopyCurrent;
16.   locale := CFLocaleGetIdentifier(theLocaleRef);
17.   encoding := 0;
18.   bufferSize := 256;
19.   buffer := new(StringPtr);
20.   success := CFStringGetPascalString(locale, buffer, bufferSize, encoding);
21.   if success then
22.     l := string(buffer^)
23.   else
24.     l := '';
25.   fbl := Copy(l, 1, 2);
26.   dispose(buffer);
27.   {$ELSE}
28.   {$IFDEF UNIX}
29.   fbl := Copy(GetEnvironmentVariable('LC_CTYPE'), 1, 2);
30.   {$ELSE}
31.   GetLanguageIDs(l, fbl);
32.   {$ENDIF}
33.   {$ENDIF}
34.   Result := fbl;
35. end;
36.  

It has the advantage to also support OS X, e.g. macOS.

[Phil]

It has the advantage to also support OS X, e.g. macOS.

Try replacing your Mac code with this:

{IFDEF DARWIN}
  fbl := NSLocale.currentLocale.localeIdentifier.UTF8String;
{$ENDIF}

[ASerge]

Hello, someone can tell me how I can recover the language used by the operating system? Primarily for windows, but if anyone knows for linux. Thanks

It's not simple question. On Windows:
1. Locale - settings that are used for formatting dates, times, currency, and large numbers. Also determines the sort order for sorting text.
2. Input language - consists of a language and a method of input.
3. UI language - determines the language of menus and dialogs, messages, setup information (INF) files, and help file.
Items can be independent. Often programmers want to use p.3 (message translation), but uses p.1 to determine the language.