Как узнать, какой язык установлен в 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; |