How can I read native text of current locale?

最新推荐文章于 2025-12-04 16:52:49 发布

转载最新推荐文章于 2025-12-04 16:52:49 发布 · 642 阅读

文章标签：

#windows #application #function #system #api #c

system 专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一种使用 Windows API 中的 VerLanguageName 函数来读取当前系统所在地区的本地语言名称的方法。通过简单的 Delphi 代码示例，展示了如何获取如英语、俄语等语言的本地名称，并提供了几个具体的例子。

How can I read native text of current locale?
Sometimes in application we want to show a text with description of current used locale.
For example, "english", "russian", "ukrainian", "chinese" etc

For this task you can use VerLanguageName function from Windows API:

var
ID: LangID;
LanguageName: array[0..255] of Char;
begin
{read current system locale}
ID := GetSystemDefaultLangID;

{convert an ID into text}
VerLanguageName(ID, LanguageName, SizeOf(LanguageName));

ShowMessage(LanguageName);
end;

Of course, you can expand this code and to translate a locale as parameter

For example, if ID is $419, you'll receive a "russian". For $$0A - the "Spanish (Traditional Sort)", for $0C0C - the "French (Canadian)", for $407 - "German (Standard)" etc

Important

if ID is incorrect, you'll receive an "Language Neutral" as result
text in result will be translated in the current language. I mean that text will be not in English if you have localized version of MS Windows