[코드] 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