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.