通过注册表获得系统语言

//必ず、Registryユニットを引用する。
function  getOSLanguage:Integer;
const
LNG_ENG =1 ;  //英語
LNG_JPN =2 ;  //日本語
LNG_CHN =3 ;  //中国語
var
reg: TRegistry;
tmp: String;
oslang:Integer;
begin
tmp := '';

reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('SYSTEM\CurrentControlSet\Control\Nls\Language', False) = True then
begin
if reg.ValueExists('Default') = True Then
tmp := reg.ReadString('Default');
reg.CloseKey;
end;
finally
reg.Free;
end;

oslang := StrToIntDef('$'+tmp, 0);
//デフォルトはOSの言語
Case oslang of
$0409: Result := LNG_ENG;//英語
$0411: Result := LNG_JPN;//日本語
$0804: Result := LNG_CHN;//中国語
else Result := LNG_ENG;//英語
end;

end;

void getOSLanguage()
{
char regname[]="SYSTEM\\CurrentControlSet\\Control\\Nls\\Language";
char value[] ="0804";//中国語
char OSlanguage[] = "Japanese";
long  length=0;
int  language = 0;
HKEY hkResult;
int ret=RegOpenKey(HKEY_LOCAL_MACHINE,regname,&hkResult);
if( ret == ERROR_SUCCESS)
{
ret = RegQueryValue(hkResult,regname,value,&length);
if( ret == ERROR_SUCCESS)
{
//英語:0x0409 日本語:0x0411 中国語:0x0804
language = atoi("0x"+value);
}
}
else
{
printf("Registry Open Error!");
}
RegCloseKey(hkResult);
}