如何设置系统时间？

Question

放入一个Ttimer控件，设置他1秒刷新一次
  panel2.Caption:=datetimetostr(now);
就可以了

Answer 1

算了，给你一个实际工作中能用到的例子：
同步SQL服务器时间：
procedure AnsyTime(const databasename:string);
var
    td:systemtime;
    ft:filetime;
begin
     with Tquery.create(self) do
     try
         databasename:=databasename;
         sql.clear;
         sql.text:='select td=getdate()';   
         open;
         DatatimeToSystemTime(Fieldbyname('td').asdatetime,td);
         SystemTimeToFileTime(td,ft);
         localfiletimetofile(ft,td);
         filetimetosystemtime(ft,td);
         setsystemtime(td);
    finally
          free;
    end;      
end;