同步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;