Aktuelle Systemsprache von Windows

[Daniel B]

Hallo,

hiermit kann man sich die aktuelle Systemsprache anzeigen lassen:

Delphi-Quellcode:

function GetLang: String;
var
  LanguageID: LangID;
  LanguageString: Array[0..100] of Char;
begin
  LanguageID := GetSystemDefaultLangID;
  VerLanguageName(LanguageID, LanguageString, SizeOf(LanguageString));
  Result := LanguageString;
end;

So aufrufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetLang);
end;

Grüsse, Daniel :hi: