...die User- & Systemsprache ermitteln?

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Um die Sprache zu ermitteln mit der User oder Windows allgemein arbeitet gibt es die Funktionen GetUserDefaultLangID und GetSystemDefaultLangID. Diese Funktionen geben als Ergebnis einen Wert vom Type LangID (Word) zurück. Mit Hilfe der Funktion VerLanguageName und der LangID bekommt man die Sprache als String zurück.

Hier zwei fertige Funktionen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Function GetUserLanguage: String;
Var
  Text: Array [0..100] of Char;
Begin
  VerLanguageName (GetUserDefaultLangID, Text, Length (Text));
  Result := String (Text);
End;

Function GetSystemLanguage: String;
Var
  Text: Array [0..100] of Char;
Begin
  VerLanguageName (GetSystemDefaultLangID, Text, Length (Text));
  Result := String (Text);
End;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme