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