Entwickler-Ecke

Windows API - ...die User- & Systemsprache ermitteln?


Tino - Mi 11.06.03 15:46
Titel: ...die User- & Systemsprache ermitteln?
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;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!