delphi如何获得当前操作系统语言环境
2007-10-24 16:39
309 查看
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;
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;
相关文章推荐
- delphi如何获得当前操作系统语言环境
- 如何获得当前系统的local语言环境
- Delphi FireMonkey APP 如何获得当前系统语言设置
- 在C#里怎样获得当前Windows操作系统的语言种类?以及如何知道当前Windows版本?
- android获得当前 语言环境。
- C++ 怎么获得当前操作系统的语言,是英文版本还是简体或繁体
- 写 RealPlayer Visual 插件如何获得当前播放的文件路径和信息?
- dedecms中如何在栏目列表和文章页面中获得当前栏目标题
- 如何用sql语言只获得数据库当前日期,且格式为"yyyy-mm-dd"?
- 如何用sql语言只获得数据库当前日期,且格式为"yyyy-mm-dd"?
- Struts 标签判断当前语言环境
- wordpress如何获得当前用户的头像
- 如何更改VS2010的[默认开发语言]默认环境设置
- VC++中如何获得一个当前进程的运行目录
- 在Windows操作系统下如何配置Java环境变量
- 【Go语言】【1】windows操作系统下GO环境配置
- cocos2dx入门之获取当前语言环境
- delphi获得当前鼠标坐标
- 如何获取当前操作系统的软件版本[初学者的浮躁的话]
- 如何获得当前类的字段,方法参数泛型的类型