Home » Tipps & Tricks » System » Systemeinstellungen » Systemsprache ermitteln

Systemsprache ermitteln

Soll ihr Programm auch auf Systemen mit verschiedenen Systemsprachen zum Einsatz kommen, können Sie diese mithilfe der untenstehenden Funktion ermitteln:

function GetOSLanguage: string;
var
  LanguageID:LangID;
  Len: Integer;
begin
  SetLength(Result, 255);
  LanguageID:=GetSystemDefaultLangID;
  Len:=VerLanguageName(LanguageID,PChar(Result), Length(Result));
  SetLength(Result, Len);
end;