Windows Sprache ermitteln

[teebee]

Was kommt denn bei

Delphi-Quellcode:

Var Lang: String;

BufSize := GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SABBREVLANGNAME,Nil,0);
 SetLength(Lang,BufSize);
 GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SABBREVLANGNAME,PChar(Lang),BufSize);

heraus?
Mit den ersten beiden Zeichen müsstest Du eigentlich etwas anfangen können.
Gruß,teebee