如何在Delphi中获取本地化的日期名称？

var
  fs : TFormatSetTings;
  x  : String;
begin
  GetLocaleFormatSetTings(GetThreadlocale,fs);
  x:= FormatdatetiR_355_11845@e('%mmmm',Now,fs);
  // etc..
end;

GetThreadLocale给出了当前的LCID,但您可以自己使用另一个数字.

TFormatSetTings记录：

TFormatSetTings = record
  CurrencyFormat: Byte;
  NegCurrFormat: Byte;
  ThousandSeparator: Char;
  decimalSeparator: Char;
  Currencydecimals: Byte;
  DateSeparator: Char;
  TimeSeparator: Char;
  ListSeparator: Char;
  CurrencyString: String;
  ShortDateFormat: String;
  LongDateFormat: String;
  TimeAMString: String;
  TimePMString: String;
  ShortTimeFormat: String;
  LongTimeFormat: String;
  ShortMonthNames: arraY[1..12] of String;
  LongMonthNames: arraY[1..12] of String;
  ShortDayNames: arraY[1..7] of String;
  LongDayNames: arraY[1..7] of String;
  TwoDigitYearCenturyWindow: Word;
end;

有关完整列表,另请参见http://www.microsoft.com/globaldev/reference/lcid-all.mspx.

您甚至可以自己更改格式设置以创建非常精美的结果.