using System; using System.Runtime.InteropServices; using System.Windows.Forms; namespace Demo { public partial class 设置系统时间 : Form { public 设置系统时间() { InitializeComponent(); } private void btnSetting_Click(object sender, EventArgs e) { //取得当前系统时间 Da…
procedure TMainFrm.Timer1Timer(Sender: TObject); var systemtime:Tsystemtime; dt:TDateTime; begin L_DateTime.Caption:=FormatDateTime('YYYY-MM-DD HH:SS',Now); //显示当前时间 MainFrm.Caption:=IntToStr(Timer1.Tag); timer1.tag:=timer1.tag+1; if Timer1…