获取北京时间 uses System.Win.ComObj,System.DateUtils;function GetBJTime():TDateTime; //获取北京时间var XmlHttp: Variant; datetxt : String; DateLst : TStringList; mon: String; timeGMT,Ge...