//Avec Delphi c'est très simple. Il suffit d'utiliser l'une des deux APIs suivantes
GetSystemDefaultLangID // Fournit l'ID du langage par défaut du système
GetUserDefaultLangID // Fournit l'ID du langage par défaut de l'utilisateur courant
//Utilisation
Label1.Caption := IntToStr(GetSystemDefaultLangID);
Label2.Caption := IntToStr(GetUserDefaultLangID);