怎样设置系统时间

Question

怎样设置系统时间？

Answer 1

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMTIMECHANGE(var Message: TWMTIMECHANGE);
       message WM_TIMECHANGE;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE);
begin
  Form1.Caption := 'Time Changed';
end;

Answer 2

1、定义变量 
var SystemTime: TSystemTime; 
　　2、转换日期 
DateTimeToSystemTime(StrToDatetime('1999-09-01 11:12:12' ),SystemTime); 
　　3、改变系统日期 
SetSystemTime(SystemTime); 

Answer 3

下面这句我试过， 但为什么小时数总时差8小时。1、定义变量 
var SystemTime: TSystemTime; 
　　2、转换日期 
DateTimeToSystemTime(StrToDatetime('1999-09-01 11:12:12' ),SystemTime); 
　　3、改变系统日期 
SetSystemTime(SystemTime);

Answer 4

SetSystemTime()是设置格林威治的时间，当然会差8个小时。