如何设置电脑日期格式？（在线等待）

Question

The following example assigns 'The meeting is on Wednesday, February 15, 1995 at 10:30 AM' to the string variable S. S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM',   StrToDateTime('2/15/95 10:30am'));

Answer 1

formatdatetime是肯定不行的，用哪个API函数谁能记得啊
到书上查一下

Answer 2

我上次刚好查了下，
这几种都可以的
SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar('yyyy-MM-dd'));procedure TForm1.Button1Click(Sender: TObject);
var
  DateStr:String;
  DD:TDate;
begin
  DD:=StrToDate('02-06-01');
  DateStr:=FormatDateTime('YYYY-MM-DD',DD);
  ShowMessage(DateStr);
end;object DateTimePicker1: TDateTimePicker
    Left = 176
    Top = 176
    Width = 186
    Height = 21
    CalAlignment = dtaLeft
    Date = 37422.3856184028
    Format = 'yyyy-MM-dd'
    Time = 37422.3856184028
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 1
  end
  DateSeparator := '-';
  ShortDateFormat := 'yyyy/MM/dd';
  Label1.Caption := DateToStr(now);