Mega Code Archive

 

Categories / Delphi / System

 

Getoslanguage

function GetOSLanguage: string; var LanguageID : LangID; Language: array [0..100] of char; begin LanguageID:=GetSystemDefaultLangID; VerLanguageName(LanguageID,Language,100); Result := String(Language); end;