[ua9oiz]

Ларчик открывается просто:

Var Code_Lang: Integer;

for i:=0 to Languages.Count-1 do
Code_Lang := Languages.LocaleID[i];

Остальную информацию можно узнать с помощью GetLocaleInfo

Тема исчерпана