摘要：http://www.jsweb8.cn/index.html 阅读全文

摘要：procedure TFrmLltj.FormActivate(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec:Word;begin Present:= Now; DecodeDate(Present, Year, Month, Day); DecodeTime(Present, Hour, Min, Sec, MSec); Showmessage(DateToStr(Present)+' '+TimeToStr(Present,'hh'));//显示 阅读全文