Get system default language

来源:互联网 发布:as400软件开发工程师 编辑:程序博客网 时间:2024/05/29 09:19

Use GetSystemDefaultLangID function. It returns identifier of system language. And after that, use VerlanguageName procedure. It translates this identifier to PChar-string.

procedure TForm1.Button1Click(Sender: TObject);var  Ident: Integer;  MyLang: PChar;const  Size: Integer = 250;  begin  GetMem(MyLang, Size);  Ident:=GetSystemDefaultLangID;  VerLanguageName(Ident, MyLang, Size);  Label1.Caption:=StrPas(MyLang);  FreeMem(MyLang);end;
http://www.greatis.com/delphicb/tips/lib/systemifo-getsyslang.html
原创粉丝点击