急，关于修改windows时间的问题

Question

请问如何修改windows时间，例如将windows2000的系统时间
修改为'2003/3/3 16:56:02';

Answer 1

a:_systemtime;            
            a.wYear:=year;
            a.wMonth:=month;
            a.wDay:=day;
            a.wHour:=hour;
            a.wMinute:=min;
            a.wMilliseconds:=msec;
            setsystemtime(a);

Answer 2

还有你的日期要减去8小时才是北京时间
datetime1:=strtodatetime('2003/3/3 16:56:02')-8/24;
decodedate(datetime1,year,month,day);
decodetime(datetime1,hour,min,sec,msec);

Answer 3

SystemDateToLocalDate() 或者相关的函数可以实现把格林威治时间转换成本地时间

Answer 4

就看我的就可以了！50分都要给我！一分都不能少的！！！！！
var
  regtime1:tregistry;
  regtime2:tregistry;
  regtime3:tregistry;
  regtime4:tregistry;
begin  regtime1:=tregistry.create;
  regtime2:=tregistry.create;
  regtime3:=tregistry.create;
  regtime4:=tregistry.create;
  regtime1.RootKey:=HKEY_CURRENT_USER;
  regtime2.RootKey:=HKEY_CURRENT_USER;
  regtime3.RootKey:=HKEY_USERS;
  regtime4.RootKey:=HKEY_USERS;
///////////////////////////////////////////  对时间格式进行处理
  if  regtime1.openkey('Control Panel\International',true) then
   begin
  regtime1.writestring('sShortDate','yyyy-MM-dd');  regtime1.CloseKey ;
  regtime1.Free ;
   end;
  if  regtime2.openkey('Control Panel\International',true) then
   begin
  regtime2.writestring('sTimeFormat','HH:mm:ss');  regtime2.CloseKey ;
  regtime2.Free ;
   end;
  if  regtime3.openkey('.DEFAULT\Control Panel\International',true) then
   begin
  regtime3.writestring('sShortDate','yyyy-MM-dd');  regtime3.CloseKey ;
  regtime3.Free ;
   end;
  if  regtime4.openkey('.DEFAULT\Control Panel\International',true) then
   begin
  regtime4.writestring('sTimeFormat','HH:mm:ss');  regtime4.CloseKey ;
  regtime4.Free ;
   end;
      //////////////////////////////////////////
50分都要给我！一分都不能少的！！！！！

Answer 5

刚才粗心了，'yyyy-MM-dd'要改为'yyyy/M/d'。
完成！
拿分来！！！！！