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