如何使軟件只能試用一個月﹐以后改日期也無效

[lliang0488]

如何使軟件只能試用一個月﹐到期后即使改日期也無效

[newfang]

到期后在注册表里新建一个主键[也可写进去一个标记]，以后每次运行都先到注册表里去读，如果读到，就quit……
我本人也做了一个，不过不是判断日期，而是每运行一次，就在注册表里做一次记录，如果超出50次，就messagebox('试用期限已到……')
——仅供参考…………

[szhuizhi]

望各位高手指點﹐謝了

[zhjame]

同意楼上的，调用VFP的reg类，在首次运行时，往注册表里写入一个起始值（当前日期，）和一个结束日期　
下次运行时，判断有没有起始日期，如果有，检查结束日期，就行了

[rayhua]

我也想做一个这样的，请问能详细的说一下做法吗？谢谢

[zhjame]

这样吧，我这儿有一个ACTIVEX控件，是在VB在做的，思路是这样：
在主程序中这样：
local cvalue
ccalue=""
oreg=newobject("filereg","registry.vcx")
oreg.getregkey("起始日期",@cvalue,"HKEY_CURRENT_USER\Software\雅安纵横",1)
if empty(alltrim(cvalue)
oreg.setregkey("起始日期",dtos(date()),"HKEY_CURRENT_USER\Software\雅安纵横",1,.t.)
endif
后面就容易做了，但实际生成我没有用时间，而是获取硬盘序号，只要硬盘不换　，由用户给我序号，我给他注册码。就行了。

[lliang0488]

gz