如何调用更改系统日期的窗体啊，

Question

如何调用更改系统日期的窗体啊，

Answer 1

winexec('rundll32.exe shell32.dll,Control_Rundll timedate.cpl',9)

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
begin
  WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL TimeDate.cpl,,0',
    SW_SHOWNORMAL);
end;

Answer 3

winexec('rundll32 shell32.dll Control_RunDll timedate.cpl,,1',SW_MAXIMIZE)

Answer 4

WinExec('rundll32.exe Shell32.dll,Control_RunDLL timedate.cpl,,0',SW_SHOWNORMAL);