请问如何在程序中判断当前是何种操作系统？如究竟是中文的win98还是英文的win98...?(空)

Question

我想有以下的方法：方法一：
可以通过TRegistry读取注册表来获取当前系统语言信息。具体注册表位置是：
Key:   HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Nls\Locale
Item:  (默认)
Value: 00000804 表示Chinese(PRC)，说明是中文Win95
       00000409 表示美国英语，说明是西文Win95
 
方法二：
可以使用以下代码：936是简体Windows95的code page
if (GetSystemMetrics(SM_DBCSENABLED) > 0) and (IsValidCodePage(936) )  then
   bChineseMode := True
  else
   bChineseMode:=False;

Answer 1

我也想知：如果是NT4.0,NT5.0,win2000,winME,还有它们的各Version

Answer 2

function WinVer: String;
//判断Windows的语言版本
begin
   if (GetSystemMetrics(SM_DBCSENABLED)>0)and(IsValidCodePage(936))
   then Result:='China';
   if (GetSystemMetrics(SM_DBCSENABLED)>0)and(IsValidCodePage(950))
   then Result:='TaiWan';
   if (GetSystemMetrics(SM_DBCSENABLED)>0)and(IsValidCodePage(850))
   then Result:='English';
end;