小弟现在这儿表示感激，希望各位大哥帮忙解决我的问题！


小弟先前实现了了通过写ini文件实现了系统的多语言环境，但是现在小弟想每次 程序运行的时候获得当前的系统语言环境从而把相应的语言文件信息读取到界面上，希望各位大哥帮忙！ 小弟将不胜感激！就是怎么样获得当前运行程序系统的语言环境！请各位大哥帮忙！

------
没有做不到，只有想不到！

使用 GetLocaleInfo 試試, 參考: http://www.swissdelphicenter.ch/torry/showcode.php?id=320    <textarea class="delphi" rows="10" cols="60" name="code"> function GetWindowsLanguage: string; var WinLanguage: array [0..50] of char; begin VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50); Result := StrPas(WinLanguage); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetWindowsLanguage); end; {********************************************************************} { another code: {********************************************************************} function GetWindowsLanguage(LCTYPE: LCTYPE {type of information}): string; var Buffer : PChar; Size : integer; begin Size := GetLocaleInfo (LOCALE_USER_DEFAULT, LCType, nil, 0); GetMem(Buffer, Size); try GetLocaleInfo (LOCALE_USER_DEFAULT, LCTYPE, Buffer, Size); Result := string(Buffer); finally FreeMem(Buffer); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Caption := GetWindowsLanguage(LOCALE_SABBREVLANGNAME); (* LOCALE_ILANGUAGE { language id } LOCALE_SLANGUAGE { localized name of language } LOCALE_SENGLANGUAGE { English name of language } LOCALE_SABBREVLANGNAME { abbreviated language name } LOCALE_SNATIVELANGNAME { native name of language } *) end; </textarea>

首先感激您的回复！

1、您的方法我试过。我当前的系统是XP中文操作系统，但是所获得是String类型，显示中文，在我下一步程序中作判断的时候不好判断！

2、我使用了GetOEMCP可以返回一个数值，这样可以有利于我的判断，但是我不确定的是，是不是所有国家的操作系统中的语言的这个ID号都是统一的，我怕一种操作系统有自己的一套编号，那样在使用这个函数感觉就不太好使了 !现在可以获取当前的系统的版本号 936 ，就是中文！

再次感激您的回复

------
没有做不到，只有想不到！

用 GetSystemDefaultLangID 

回傳值等於
$0404 -> 繁體中文 台灣
$0c04 -> 繁體中文 香港
$1004 -> 新加坡
$0804 -> 簡體中文

語系定義一覽表
http://msdn2.microsoft.com/en-us/library/ms776294.aspx

谢谢两位大哥，但是不知道怎么把分数给你们啊！

------
没有做不到，只有想不到！

在[將此問題結案]的按鈕旁邊有個ComboBox,
請指定答題得分者再按下[將此問題結案]的按鈕即可

但是两位版主回答的都有道理只不过是两种方法，我真的难以取舍，确切的说就是两个人的答案都是对的，我怎么给他们分数平分一下阿！

------
没有做不到，只有想不到！