admin

[应用技巧] 设置系统日期格式,如果不符,就退出,必须重新进入

//设定日期格式,如果出错,则退出!

SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar('yyyy-MM-dd'));


try

  if StrToDateTime('2000-01-01 12:12:12')>now then close;

except

  Application.Terminate;

end;


#1楼
发帖时间:3月前   |   查看数:0   |   回复数:0
游客组