Odczyt języka narodowego używanego przez bieżącego użytkownika

Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić informację o języku narodowym używanym przez system używamy funkcji Windows API GetUserDefaultLangID() i VerLanguageName():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   LANGID UserIDJezyka;
   char UserOpisJezyka[101];
   UserIDJezyka = GetUserDefaultLangID();
   VerLanguageName(UserIDJezyka, UserOpisJezyka, sizeof(UserOpisJezyka));
   Label1->Caption = UserOpisJezyka;
}