软件有效期控制问题

Question

TO yexiaofeng:
假如我确定一个终止时间为60天、在程序初始化时该怎样判断？

Answer 1

注册表,TRegistry啊。
怎么用，看帮助啊。

Answer 2

to: wyb_star(孤星)老大，您说的方法我不会做，能详细点吗？
在系统目录中怎样加文件；每次启动怎样检查？马上给分

Answer 3

各位老大，小弟又回来了。还是老问题，在我做的这套软件中，我只做了一个简单的时间控制：
unit loing;
type class:=formloing;
uses
.........
procedure timecontrol(sender;Tobject)'
var nowtime,time;Tdatetime;
nowtime;=now;
time;='2001-12-00 12:00:00';
if nowtime<=time then
  beign
  showmessage('时间已到期，相关事宜请与本公司联系！')；
  exit;
  end;
现在的问题是：
    我不会在注册表中写time？
    但用户改变系统time时就又可以用了，各位大哥有更好的方法吗？小弟一定给分！

Answer 4

更正；
procedure timecontrol(sender;Tobject)'
var nowtime,time;Tdatetime;
nowtime;=now;
time;='2001-12-00 12:00:00';
if nowtime>=time then
  beign
  showmessage('时间已到期，相关事宜请与本公司联系！')；
  exit;
  end;
现在的问题是：
    我不会在注册表中写time？
    但用户改变系统time时就又可以用了，各位大哥有更好的方法吗？小弟一定给分！
  

Answer 5

给你一个写注册表的方法:
user Registryprocedure WriteReg(ARootKey: DWORD; ASubKey, AKeyName: string; AValue: string);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := ARootKey;
    if reg.OpenKey(ASubKey,true) then
      reg.WriteString(AKeyName,AValue);
  finally
    reg.CloseKey;
    reg.Free;
  end;
end;

Answer 6

另外，你可在程序终止前将当天的日期写入注册表，在程序启动时取出上次使用程序的日期，再if 现在的日期<上次使用程序的日期 then 
  application.terminate;

Answer 7

你用服务器吗？
如果是Sql Server 则在服务的表上存个时间就可以了，
如果是单机的，则可以用个加密文件存放时间，付了钱就给
他换个文件，不用太复杂，随便异或两下就可以了，我想那
个桑那老板就搞不定了。

Answer 8

stanely(暗黑)　的建议可行，推荐采用 :)

Answer 9

stanely(暗黑)　& liang_z(千山一刀之忍者神龟)的办法都不错啊。值得一用。

Answer 10

to:stanely(暗黑)，liang_z(千山一刀之忍者神龟)　谢谢您!但我做不来，能详细一点吗？（最好有原码）,我会再加分的，都有份
‘加密得数据库存放日志文件，这样即便找到了数据库文件，也打不开。而且你作个监测数据库文件以及格式的模块，防止别人伪造数据库文件’。1
 
　

Answer 11

车,一大堆用系统时间的人.
DATETIME() IS ERROR!
SOFTICE!

Answer 12

我不会delphi,我用bcb,写数据库我没有用过，但是我帮一个会pb的人除了这个主意，她用了觉得不错，你到pb论坛找xingjiaren(sandy)吧，就是她(girl)：）

Answer 13

我觉得用TINIFile文件类蛮好的，又方便省事，在一个不显眼的角落建一个
。ini文件，然后用TINIFile文件类的函数读取写入字符串，可以代替注册表。