Как узнать, какой язык активен в Windows

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Программиста спрашивают:

— Как вам удалось так быстро выучить английский язык?!!

— Да, ерунда какая. Они там почти все слова из Delphi взяли.

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;

{/codecitation}

Добавить комментарий