Betriebssystem Sprache auslesen

[Bummi]

Du gehst nicht über den Index des Array aus Language sondern über den Locale identifier von hier Language Identifier Constants and Strings

Delphi-Quellcode:

// DE = 1031 = $0407
var
 LCID:Integer;
begin
  LCID := Languages.indexOf(SysLocale.DefaultLCID);
  Showmessage( IntToStr(Languages.LocaleID[LCID])
               + '[' +IntToHex(Languages.LocaleID[LCID],4) +']'
               + '-' + Languages.LocaleName[LCID]
               + '-' + Languages.Name[LCID]);
end;