如何改變系統時間?(50分)

  • 主题发起人 主题发起人 rixin
  • 开始时间 开始时间
看一下 SetSystemTime 函数的帮助
 
如果在NT下会不会有权限的限制呢?
 
取得root ,然后,,,,
 
administrator->setsystemtime
 
procedure TForm1.Button1Click(Sender: TObject);
Var
dtX: TDateTime;
sysTime: _SYSTEMTIME;
begin
dtX := Now;
//
// 设置dtX
//
DateTimeToSystemTime(dtX,sysTime);
SetSystemTime(sysTime);
end;
 
接受答案了.
 
后退
顶部