怎么判断一个程序在一天内运行了多久啊? 需求是这样的:当程序在一天内累计执行2小时就不能再运行,希望能得到详解答 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以用timer也可以getticketcount获取操作系统运行的时间, 在你的程序一启动的时候得到一个值tmp=getticketcount, 然后判断getticketcount-tmp>2小时,就可以了。 当然这只是运行简单的运算,不能起到计算累计时间的作用,只是个思路timer程序执行的时候 把变量设置为0 一分钟TIMER出发一次,使变量+1,加到一定数字就terminate process 接楼上的,要累加时间的话,把已经运行的时间写到一个ini文件里,然后再做判断. 你可以使用timer或者多线程把时间写到注册表,文件随便了。 B:=GetTickCount..............ShowMessageFmt('%d秒',[(GetTickCount - B) div 1000]) RadPHP 如何进行调试? 如何制作把图片,AVI,FLASH等转换为exe的软件 有谁熟悉 TXMLDocment 控件? delphi中有没有可以把字符串以某种格式转成数组的函数?以、那位高手有用过? 如何切割图片为五份? 各位高手,帮帮忙! 请问怎样能使sql server中的text类型字段在dbgrid中显示出来? 注册表给一般用户禁用了,怎么重新开启?? 关于报表的页面设置。 怎样控制不保存空记录 一个delphi调用DLL失败的问题 用OleContainer控制Word问题
也可以getticketcount获取操作系统运行的时间,
在你的程序一启动的时候得到一个值tmp=getticketcount,
然后判断getticketcount-tmp>2小时,就可以了。
当然这只是运行简单的运算,不能起到计算累计时间的作用,只是个思路
timer
程序执行的时候 把变量设置为0
一分钟TIMER出发一次,使变量+1,加到一定数字就terminate process
注册表,文件随便了。
........
......
ShowMessageFmt('%d秒',[(GetTickCount - B) div 1000])