procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdTime1.Host:='210.72.145.44';
label3.Caption:=datetimetostr(IdTime1.DateTime);
label4.Caption:=datetimetostr(Now());
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTime1.SyncTime;
end;

end.

[此贴子已经被作者于2007-11-8 15:37:10编辑过]

lwcZlla7.jpg (214.46 KB)

图片附件: 游客没有浏览图片的权限，请 登录 或 注册