如何使客户端时间和服务器短时间保持一致？(10分)

如何使客户端时间和服务器短时间保持一致？服务器假设为2002-11-01，客户端就是
2002-11-01，服务器端是2002-9-7，客户端就是2002-9-7，客户端随服务器端时间变化，
时间的长短类型也变化。
要在程序中修改注册表吗？有不修改注册表的方法吗？

我是用的SQLsever2000,你先使用SQL语句取得服务器时间：select getdate()
然后更改客户端的系统时间：Function ServerDateTime():TDateTime;
var
//i:integer;
NewTime : TSystemTime;
begin
with UserLogin do
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select GetDate() As RemoteDate');
ADOQuery1.Open;
Result:=ADOQuery1.FieldByName('RemoteDate').AsDateTime;
//转换为Windows 32位时间格式
DateTimeToSystemTime(Result, NewTime);
//设定本机时间
SetLocalTime(NewTime);
ADOQuery1.Close;
end;

end;
这不搞定了！

[]
没错，不过在NT，2000中不知道用SetLocalTime更改时间能否好用！
在服务器版操作系统中，更改时间要首先获得控制权。

一点建议注意设置本地时间而不是标准时间否则出错

多人接受答案了。