同步SQL Server服务器时间

procedure AnsyTime(const DataBasename,Sconn:string);

var

td:SYSTEMTIME;

ft:FILETIME;

begin

with TADOQuery.Create(nil) do

try

Connection :=Sconn;

SQL.Clear;

SQL.Text :='Select td=getdate()';

Open;

DateTimeToSystemTime(FieldByName('td').AsDateTime,td);

SystemTimeToFileTime(td,ft);

LocalFileTimeToFileTime(ft,ft);

FileTimeToSystemTime(ft,td);

SetSystemTime(td);

finally

Free;

end;

end;