Revision 1 of 1, by Trev on 3-4-2020. The page as it is now.
Windows system language/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;
...From the Free Pascal wiki, page "Windows system language/de", as it stood on 2020-03-04 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.