如何更改系统日期格式

Question

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);============================
@* .☆ / ＊/　.　/ * . ☆/ ＊。
   ◢◣。       ◢◣。
  ◢★◣。     ◢★◣。
 ◢■■◣。   ◢■■◣。
◢■■■◣。 ◢■■■◣。
︸︸||︸︸ !!︸︸||︸︸
愿您有快乐的每一天 ^_^!!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);begin
  DateSeparator := '-';
  ShortDateFormat := 'm/d/yyyy';
  Label1.Caption := DateToStr(Date);
end;

Answer 2

ShowMessage(FormatDateTime('YYYY-MM-DD',Date));

Answer 3

ShortDateFormat := 'yyyy-mm-dd'
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]