How To Get The Windows Language

Obtains the language that Windows is using.

 

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