delphi如何获得当前操作系统语言环境

本文整理自网络，侵删。

  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 GetWindowsLanguage1(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.Button2Click(Sender: TObject); 
begin 
Caption := GetWindowsLanguage1(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中实现javascript gettime函数

Delphi获取dos命令行输出函数 运行cmd命令并获取结果【方法2】

Delphi idhttp http.get 获取json数据

Delphi console 清屏代码

Delphi10.3构造一个json数据的第三种方法，并格式化输出

Delphi指针的定义和取值

Delphi idmessage1 idsmtp1 发送邮件支持https

Delphi通过代码实现模拟按键的函数

Delphi xe更改ttrayicon系统任务栏图标（无模糊）

Delphi实现双击左ctrl键调用记事本

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi如何获得当前操作系统语言环境