Aktuelle Sprache von Winows ermitteln

[Tobias Grondinger]

Hallo,

müßte wissen, wie man die aktuelle Sprache von Windows herausbekommt.

Die Unterscheidung zwischen Deutsch(Deuschl., Schweiz,...) und Englisch(rest der Welt) reicht!

Hat jemand eine Idee?

[TobyBryan]

Hallo,

über die Kombination der Win32-API-Funktionen GetSystemDefaultLCID und GetLocaleInfo wird die aktuelle Ländereinstellung als Zeichnkette zurückgeliefert.


procedure TForm1.Button1Click(Sender: TObject);
var
szCountry: array [0..128] of char;
begin
GetLocaleInfo(GetSystemDefaultLCID, LOCALE_SLANGUAGE,
szCountry, SizeOf(szCountry) - 1);
ShowMessage(szCountry);
end