Odczyt języka narodowego używanego przez system

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 GetSystemDefaultLangID() i VerLanguageName():

Unit1.cpp

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