코드는 다음과 같습니다.
함수 tform1.getLocaleInformation (플래그 : 정수) : 문자열;
var
PCLCA : char의 배열 [0..20];
시작하다
if (getLocaleInfo (locale_system_default, flag, pclca, 19) <= 0)를 시작하십시오
PCLCA [0] : = #0;
끝;
결과 : = PCLCA;
끝;
절차 tform1.Button1click (sender : tobject);
시작하다
showmessage (getLocaleInformation (locale_senglanguage));
끝;
매개 변수 "플래그"는 다음 값을 취할 수 있습니다.
locale_nouserOverride {사용자 오버라이드를 사용하지 마십시오}
locale_use_cp_acp {시스템 ACP 사용}
locale_ilanguage {언어 코드}
locale_slanguage {현지 언어 이름}
locale_senglanguage {언어의 영어 이름}
locale_sabbrevlangname {언어 이름 약어}
locale_snativelangname {현지 언어 이름}
locale_icountry {국가 코드}
locale_scountry {국가 이름}
locale_sengcountry {Country 's English Name}
locale_sabbrevcryname {국가 이름 약어}
locale_snativectryName {country name}
locale_idefaultlanguage {기본 언어 코드}
locale_idefaultCountry {기본 국가 코드}
locale_idefaultCodePage {기본 OEM 코드 페이지}
locale_idefaultansicodepage {기본 ANSI 코드 페이지}
locale_idefaultmaccodepage {default mac page}
locale_slist {목록 항목 스플리터}
locale_imeasure {측정 단위 0 = meter, 1 = 영어}
locale_sdecimal {소수점 기호}
locale_sthommand {천 분할}
locale_sgrouping {Digit Grouping}
locale_idigits {분수 숫자 수}
locale_ilzero {소수점을위한 주요 0}
locale_inegnumber {음성 모드}
locale_snativedigits {Native ASCII 0-9}
locale_scurrency {로컬 통화 기호}
locale_sintlsymbol {국제 통화 기호}
locale_smondecimalsep {Currency Decimal Splitter}
locale_smonthointsep {Currency Thousand Divider}
locale_smongrouping {Monetary Grouping}
locale_icurrdigits { # local monetary 자리}
locale_iintlcurrdigits { # intl monetary 자리}
locale_icurrency {positial 통화 모드}
locale_inegcurr {음성 통화 모드}
locale_sdate {날짜 스플리터}
locale_stime {Time Splitter}
locale_sshortdate {짧은 날짜 문자열}
locale_slongdate {긴 날짜 문자열}
locale_stimeformat {Time Format String}
locale_idate {짧은 날짜 형식 주문}
locale_ildate {긴 날짜 형식 주문}
locale_itime {시간 형식 지정자}
locale_itimemarkposn {시간 마커 위치}
locale_icentury {Century Format Specifier (짧은 날짜)}
locale_itlzero {시간 제로의 제로 필드}
locale_idaylzero {일일 필드의 주요 0 (짧은 날짜)}
locale_imonlzero {월간 필드의 주요 0 (짧은 날짜)}}
locale_s1159 {AM Designer}
Locale_S2359 {PM Designer}
locale_icalendartype {Calendar Specifier 유형}
locale_ioptionalCalendar {추가 캘린더 유형 지정자}
locale_ifirstdayofweek {첫 번째 요일 지정자}
locale_ifirstweekofyear {첫 주 지상자}
locale_sdayname1 {월요일의 긴 이름}
locale_sdayname2 {화요일의 긴 이름}
locale_sdayname3 {수요일의 긴 이름}
locale_sdayname4 {목요일의 긴 이름}
locale_sdayname5 {금요일의 긴 이름}
locale_sdayname6 {토요일의 긴 이름}
locale_sdayname7 {일요일의 긴 이름}
locale_sabbrevdayname1 {월요일 약식}
locale_sabbrevdayname2 {화요일 약어}
locale_sabbrevdayname3 {수요일 약식}
locale_sabbrevdayname4 {목요일 약어}
locale_sabbrevdayname5 {금요일 약어}
locale_sabbrevdayname6 {토요일 약어}
locale_sabbrevdayname7 {일요일 약어}
locale_smonthname1 {1 월의 긴 이름}
locale_smonthname2 {2 월의 긴 이름}
locale_smonthname3 {3 월의 긴 이름}
locale_smonthname4 {4 월의 긴 이름}
locale_smonthname5 {5 월의 긴 이름}
locale_smonthname6 {6 월의 긴 이름}
locale_smonthname7 {7 월의 긴 이름}
locale_smonthname8 {8 월의 긴 이름}
locale_smonthname9 {9 월의 긴 이름}
locale_smonthname10 {10 월의 긴 이름}
locale_smonthname11 {11 월의 긴 이름}
locale_smonthname12 {12 월의 긴 이름}
locale_smonthname13 {13 개월의 긴 이름 (존재하는 경우)}
locale_sabbrevmonthname1 {1 월 약어}
locale_sabbrevmonthname2 {2 월 약어}
locale_sabbrevmonthname3 {3 월 약어}
locale_sabbrevmonthname4 {4 월의 약어}
locale_sabbrevmonthname5 {약어}
locale_sabbrevmonthname6 {6 월 약어}
locale_sabbrevmonthname7 {7 월 약어}
locale_sabbrevmonthname8 {8 월 약어}
locale_sabbrevmonthname9 {9 월 약어}
locale_sabbrevmonthname10 {10 월 약어}
locale_sabbrevmonthname11 {11 월 약어}
locale_sabbrevmonthname12 {12 월 약어}
locale_sabbrevmonthname13 {13의 약어 (있는 경우)}
locale_spositivesign {positive sign}
locale_snegativesign {마이너스 부호}
locale_ipossignposn {positive position}
locale_inegsignposn {마이너스 위치}
locale_ipossymprecedes {mon sym pos pos amt}
locale_ipossepbyspace {mon sym sep by space from pos amt}
locale_inegsymprecedes {mon sym 앞서}}
locale_inegsepbyspace {Mon Sym Sep by Space from Neg Amt}
locale_fontsignature {font signature}
locale_siso639langname {ISO 약어 언어 이름}
locale_siso3166ctryName {ISO 약어 국가 이름}