function GetLocaleInformation(Flag: Integer): string; var pcLCA: array [0..20] of Char; begin if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0 then pcLCA[0] := #0; Result := pcLCA; end; procedure TForm1.Button4Click(Sender: TObject); begin ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE)); end;
Result are like:
French
German
Japanese
Advertisements