of resource DLLs and language codes

Have you ever looked at the Delphi example? It's the RichEdit demo in your Demos folder.

To translate a locale ID to a locale name, use:

  GetLocaleInfo(Locale, LOCALE_SABBREVLANGNAME, LocaleName, SizeOf(LocaleName));

Since we ask for LOCALE_SABBREVLANGNAME you will get the abbreviation for this country.

Also look at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/intl/nls_5s2v.asp for more API functions... For example, EnumUILanguages...

Hi,

Place one ListBox and one button on a form and try the following:

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to Languages.Count - 1 do begin
    ListBox1.Items.Add(Languages.Ext[i] + ' ' + Languages.Name[i]); // three letter extension and name
  end;
end;

Regards, Geo

Oh, well... You could also run through the LAnguages table in the SysUtils unit... :-)

@geobul : "undeclared identifier Languages", as I expected

@Workshop_Alex  : do you ever read the question ? I know those Enumerate and get* function, they are in the Win32.HLP, thank you 8-)

I don't need Windows' locale IDs (and I don't want to enumerate them myself to pass them to GetLocaleInfo), I need the TLDs used by Delphi for the extension of resource DLLs. Those seem not to be documented anywhere.

However, thanks for having tried. Given my Win32.HLP did not even mention the LCtype value 'LOCALE_SABBREVLANGNAME', I think I don't deserve your mockery :-) and I'll try to see if those delphi-values are in fact windows-abbreviated ones. If it is the case, you'll get "the" answer :D

GetLocaleInfo
[...]

LCType

Specifies one of the LCTYPE constants to indicate the type of information to be retrieved.
All LCTYPE values are mutually exclusive, with the exception of LOCALE_NOUSEROVERRIDE. An application may use the binary-OR operator to combine LOCALE_NOUSEROVERRIDE with any other LCTYPE value. If passed such an LCType value, the function bypasses user overrides, and returns the system default value for the requested LCID.

[snip uses SysUtils;]
 for i := 0 to SysUtils.Languages.Count : undeclared identifier blah blah blah

Add SysUtils in your uses clause. It was added automatically in my Delphi 5 and the code above worked well.

Regards, Geo

@workshop Alex : that's it apparently. Good job. (GG ? :D )

too bad Delphi's documentation was unclear on this point, to say the least and stay polite.

@geobull : I don't like to be considered a moron :/

This is your problem obviously if you can't find where 'Languages' is inside your Delphi. The code works well here and my only goal was to help. Nothing more, nothing less. And meanwhile I'm doing other things also because this one is for free.