Versuch das Mal:
Delphi-Quellcode:
uses
SysUtils, Dialogs;
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
i := Languages.IndexOf(SysLocale.DefaultLCID);
ShowMessage(Languages.Name[i]);
end;
Kann es gerade nicht testen, scheint jedoch das richtige zu sein. ^^
Edit: Da war wohl einer schneller mit dem genau gleichen Google Eintrag den ich auch als ersten Link gefunden habe^^