如何修改注册表使时间格式为####-##-## ##:##:##(2002-10-12 08:07:25)？(20分)

如何修改注册表使时间格式为####-##-## ##:##:##(2002-10-12 08:07:25)？

不需要修改注册表
在控制面板-->区域设置-->修改时间和日期标签格式

搜索一下以前的贴子！有这方面的。

//下面的是由默认的'yy-m-d'为 'yyyy-mm-dd'.修改后不用重启
//自己自行进行修改
//LOCALE_SLONGDATE

procedure TForm1.Button1Click(Sender: TObject);
var
DefLCID: LCID;
Buffer: array[0..255] of char;
begin
Application.UpdateFormatSettings := True;
StrPCopy(Buffer,'yyyy-MM-dd');
DefLCID := GetThreadLocale;
if SetLocaleInfo(DefLCID,LOCALE_SSHORTDATE,Buffer) then begin
ShortDateFormat := Buffer;
end;
Application.UpdateFormatSettings := False;
end;

使用API函数GetTimeFormat可以随心所欲的设置，如系统地方ID,时间格式等

多人接受答案了。