Sprache abfragen

[MathiasSimmack]

Zitat von PhaTTy:

Bisher habe ich keine WinAPI Funktion gefunden die das kann. Vielicht gibt es auch gar keine.

Und wie wäre das:

Delphi-Quellcode:

program GetLocaleID;

uses
  Windows;

var
  buf : array[0..MAX_PATH]of char;
begin
  ZeroMemory(@buf,sizeof(buf));
  GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SABBREVLANGNAME,buf,sizeof(buf));
  MessageBox(0,buf,'Your locale ID is',0);
end.