如何判断操作系统是简体还是繁体(100)

请问在Delphi中用代码如何判断操作系统是简体还是繁体?有知道的同学告诉一下,非常感谢!

Button1Click(Sender: TObject); var S : array[0..255] of char; iType : LCTYPE; begin iType := LOCALE_SNATIVELANGNAME; GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, iType, S, SizeOf(S)); if s='中文(简体)' then showmessage('简体') else showmessage('繁体'); end;

收藏了~~

藏之。

thanks