Office中国论坛/Access中国论坛

标题: 如何删除注册表? [打印本页]

作者: lussee 时间: 2007-11-15 21:54
标题: 如何删除注册表?
我在ACCESS小软件里安装了设置注册表的程序，但我现在想更改或删除该注册时间，请问如何编写代码更改或删除注册时间。谢谢！

'限制软件30天试用
Dim ReValue As Date '声明时间变量
Dim name As String '声明字符串变量，软件名称
Dim dd As Variant '声明数值变量，dd为日期差
name = "gggg" '给变量赋值软件名为gggg
ReValue = GetSetting(name, "MainKey", "DateValue", Date) '读取注册表软件名gggg的键值，如果没有则为当前日期
Me.Text1 = ReValue
dd = DateDiff("d", ReValue, Date) '计算日期差
Me.Text2 = dd
If dd = 0 Then '如果是第一天运行
SaveSetting name, "MainKey", "dateValue", Date '写注册表
End If
If dd > 30 Then
MsgBox "软件已过期"
Else
MsgBox "软件可以试用"
'DoCmd Quit
MsgBox "还剩下" & 30 - dd & "天试用期！"
End If

作者: pengkuo 时间: 2007-11-16 00:26
编程人员从程序开发中积累了许多非常实用的经验与技巧 bucuode !

作者: baije 时间: 2007-11-16 08:30
删除：DeleteSetting "gggg", "MainKey","dateValue"
修改:SaveSetting "gggg", "MainKey", "dateValue", "新的日期"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)