如何修改系统的日期和时间格式(100分)

如题

function TForm1.SetSystemtime(ATime: TDateTime): Boolean;
var
ADateTime: TSystemTime;
yy,mon,dd,hh,min,ss,ms: Word;
begin
decodedate(ATime ,yy,mon,dd);
decodetime(ATime ,hh,min,ss,ms);
with ADateTimedo
begin
wYear := yy;
wMonth := mon;
wDay := dd;
wHour := hh;
wMinute := min;
wSecond := ss;
wMilliseconds := ms;
end;
Result := SetLocalTime(ADateTime);
SendMessage(HWND_BROADCAST,WM_TIMECHANGE,0,0)
if Result then
ShowMessage('成功改变时间!');
end;

格式
ShortDateFormat := 'YYYY-MM-DD';
LongDateFormat := 'YYYY-MM-DD';

大哥，我问的VC++里面的

利用formatdatetime

SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SSHORTDATE, 'yyyy-mm-dd')

多人接受答案了。