Windows system language/de
From Lazarus wiki
Jump to navigationJump to search
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Prozedur ermittelt die aktuelle Systemsprache von Windows.
uses
Windows, ...;
...
function funWindowsSprache:String;
var
chrCountry: array [0..255] of char;
begin
GetLocaleInfo(GetSystemDefaultLCID, LOCALE_SLANGUAGE,
chrCountry, SizeOf(chrCountry) - 1);
Result := chrCountry;
end;
...