Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 846
  • Last Modified:

Getting System Language

I need to extract the system language code. I can get the code for the regional option setting using
GetLocaleInfo (LOCALE_USER_DEFAULT,LOCALE_SABBREVLANGNAME,@Buffer[1],10);,
but is there a deeper level? Using LOCALE_SYSTEM_DEFAULT did not seem to work on a Spanish PC
0
NCAnnie
Asked:
NCAnnie
  • 3
1 Solution
 
DaFoxCommented:
Hi NCAnnie!

If you are using VCL, try this:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TLanguages.Create do
    try
      Label1.Caption := NameFromLocaleID[GetSystemDefaultLCID];
      Label2.Caption := NameFromLocaleID[GetUserDefaultLCID];
    finally
      Free;
  end;
end;

Markus
0
 
DaFoxCommented:
Just tested this one (and it works! :o)):

procedure TForm1.Button2Click(Sender: TObject);
var
  Buffer: String;
begin
  SetLength(Buffer, 255);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SABBREVLANGNAME, PChar(Buffer), Length(Buffer));
  Label1.Caption := Buffer;
end;


Markus
0
 
NCAnnieAuthor Commented:
LOCALE_SYSTEM_DEFAULT gives the language set as default in Windows 2000, which needs a reboot, LOCALE_USER_DEFAULT gives the language set in Regional Options ( no reboot necessary) Both of these can be changed by the user, but what about the Operating System language - the one which sets the language on the start button for example? None of the changes I made through Regional Options affected this. Can I find a constant representing this? I would like my (multilingual) software to open in the language of the users operating system.
0
 
DaFoxCommented:
Hi.

- http://msdn.microsoft.com/library/default.asp?url=/library/en-us/intl/nls_8d0z.asp

- use VerQueryValue() and get language from user.exe (veeery sloppy!)

Markus
0
 
CleanupPingCommented:
NCAnnie:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
EXPERTS:
Post your closing recommendations!  No comment means you don't care.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now