吴 吴剑明 Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-27 #6 administrator->setsystemtime
D devuser Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-28 #7 procedure TForm1.Button1Click(Sender: TObject); Var dtX: TDateTime; sysTime: _SYSTEMTIME; begin dtX := Now; // // 设置dtX // DateTimeToSystemTime(dtX,sysTime); SetSystemTime(sysTime); end;
procedure TForm1.Button1Click(Sender: TObject); Var dtX: TDateTime; sysTime: _SYSTEMTIME; begin dtX := Now; // // 设置dtX // DateTimeToSystemTime(dtX,sysTime); SetSystemTime(sysTime); end;