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;
  
  ...