如何用DELPHI修改windows日期/时间等设置?(100分)

如何用DELPHI修改windows日期/时间等设置?例如：把时间的12小时制显示改成24小时制显示。

SetLocalTime

var
x:cardinal;
{区域设置 属性-区域设置}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,0',9);

datatime:=datatime+12

var
systemtime:Tsystemtime;
DateTime:TDateTime;
begin
Edit1.text:='2002-10-24 10:25:33';
DateTime:=StrToDateTime(Edit1.Text);
DateTimeToSystemTime(DateTime,systemtime);
SetLocalTime(SystemTime);
GetLocalTime(SystemTime);
DateTime:=SystemTimeToDateTime(SystemTime);
end;

SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT,LOCALE_SLONGDATE,'yyyy'+'''Äê'''+'M'+'''ÔÂ'''+'d'+'''ÈÕ'''); //ÉèÖó¤ÈÕÆÚ¸ñʽ
SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,'yyyy-MM-dd'); //ÉèÖöÌÈÕÆÚ¸ñʽ
SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT,LOCALE_STIMEFORMAT,'HH:mm:ss'); //ÉèÖÃÈÕ¼ä¸ñʽ
SendMessageA(HWND_BROADCAST,WM_SETTINGCHANGE,0,0); //֪ͨ¸÷´°¿ÚϵͳÉèÖÃÒѸıä

修改注册表呀~~~我都做过这样的程序~改注册表是最方便的~

procedure TForm_main.FormCreate(Sender: TObject);
var s:boolean;
begin
DateSeparator := '-';
shortdateformat:='yyyy-mm-dd';
ShortTimeFormat:='hh:mm:ss';
s:=application.UpdateFormatSettings;
end;

接受答案了.