Windows system language/de

From Free Pascal wiki

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



--Olaf 07:55, 28 May 2013 (UTC)