aktuelle Sprache von Windows

[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?

[Andreas Kosch]

Hallo,

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

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