Delphi-Help

Главная Статьи Windows Как узнать, какой язык установлен в Windows по умолчанию?

Как узнать, какой язык установлен в Windows по умолчанию?

Оцените материал
(0 голосов)


Как узнать, какой язык установлен в Windows по умолчанию?

function WhichLanguage: string;
var
  ID: LangID;
  Language: array [0..100] of char;
begin
   ID := GetSystemDefaultLangID;
   // Другие варианты
   // ID := GetUserDefaultLangID;
   // ID := GetSystemDefaultLCID;
   VerLanguageName( ID, Language, 100 );
   Result := string( Language );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := WhichLanguage;
end;

Или немного иначе

function GetSystemDefaultUILanguage: UINT; stdcall; external kernel32 name 'GetSystemDefaultUILanguage';
 
function GetSysLang: integer;
begin
   Result := Lo( GetSystemDefaultUILanguage );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ID: LangID;
  Language: array [0..100] of char;
begin
   VerLanguageName( GetSysLang, Language, 100 );
   Caption := Language;
end;
Прочитано 5104 раз

Авторизация



Счетчики