怎样设置系统日期/时间？？？

Question

不要调用控制面板中的程序，直接在程序中输入日期和时间，然后“确定”即可马上改变本机的系统日期/时间，请帮忙！！！

Answer 1

var
  st:TSystemTime;
begin
  st.wHour := 10;
  ......
  等等
  SetLocalTime(st);
end;

Answer 2

利用API函数，函数原型为 BOOL SetSystemTime(CONST SYSTEMTIME *lpSystemTime, 具体实现如下：
procedure TForm1.Button2Click(Sender: TObject);
var
  Temp: SystemTime;
begin
  Temp.wYear := 1902;
  Temp.wMonth := 09;
  Temp.wDay := 1;
  Temp.wHour := 23;
  temp.wMinute := 12;
  Temp.wSecond := 13;
  SetSystemtime(Temp);
end; 
 
记住：这是国际标准时间，如想设置当地时间则用SetLocalTime, 具体请同上

Answer 3

SetSystemTime ,设置当前系统时间 
返回值 Long，非零表示成功，零表示失败。会设置GetLastError