Для этого можно воспользоваться следующей функцией. ---------------------------------------------------
function WhichLanguage:string; var ID:LangID; Language: array [0..100] of char; begin ID:=GetSystemDefaultLangID; VerLanguageName(ID,Language,100); Result:=String(Language); end;
Пример вызова этой функции:
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=WhichLanguage; end;
Как видно из кода язык будет отображаться в компоненте TEdit
