15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

Для этого можно воспользоваться следующей функцией.
--------

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;

 

Также, для определения активного языка можно воспользоваться функцией GetUserDefaultLangID.