Sprache des Betriebssystems herausfinden

[400kmh]

Hallo, mit welchen Befehlen kann man die Sprache des Betriebssystems (in meinem Fall Windows) herausfinden?

[theo]

http://forum.lazarus.freepascal.org/ind ... ic=12957.0

Nicht getestet.

[jwdietrich]

In meinen Programmen verwende ich immer die folgende Funktion:

Code: Alles auswählen

function GetOSLanguage: string;
  {platform-independent method to read the language of the user interface}
var
  l, fbl: string;
  {$IFDEF LCLCarbon}
  theLocaleRef: CFLocaleRef;
  locale: CFStringRef;
  buffer: StringPtr;
  bufferSize: CFIndex;
  encoding: CFStringEncoding;
  success: boolean;
  {$ENDIF}
begin
  {$IFDEF LCLCarbon}
  theLocaleRef := CFLocaleCopyCurrent;
  locale := CFLocaleGetIdentifier(theLocaleRef);
  encoding := 0;
  bufferSize := 256;
  buffer := new(StringPtr);
  success := CFStringGetPascalString(locale, buffer, bufferSize, encoding);
  if success then
    l := string(buffer^)
  else
    l := '';
  fbl := Copy(l, 1, 2);
  dispose(buffer);
  {$ELSE}
  {$IFDEF UNIX}
  fbl := Copy(GetEnvironmentVariable('LC_CTYPE'), 1, 2);
    {$ELSE}
  GetLanguageIDs(l, fbl);
    {$ENDIF}
  {$ENDIF}
  Result := fbl;
end;

Sie hat den Vorteil, dass sie auch OS X (z. B. macOS) unterstützt.

[deadc0de]

Man kann es auch aus der Registry auslesen.
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nls\Language
InstallLanguage"="0407 steht dafür, das Windows auf Deutsch ist.