[코드] Delphi는 현재 시스템의 언어 정보를 가져옵니다

798 단어 Delphi
핵심 함수는 API 함수: GetSystemDefaultLangID 및 VerLanguageName 입니다.
uses Windows;



function GetSystemLanguageName: string;

var

  ID: LangID;

  LanguageName: array[0..255] of Char;

begin

  //        Locale

  //       ,ID = 2052

  ID := GetSystemDefaultLangID;



  //   ID      

  //       ,LanguageName =“  (  )”

  VerLanguageName(ID, LanguageName, SizeOf(LanguageName));



  Result := LanguageName;

end;

end.

Technorati 태그:
Delphi ,
GetSystemDefaultLangID ,
VerLanguageName

좋은 웹페이지 즐겨찾기