把应用加上３０天的试用期。

Question

这是一个写注册表来注册的程序，
运行： regedit
 在  HKEY_LOCAL_MACHINE  下
    Software\Microsoft\Windows\CurrentSowft\tag 
  的 键 值 
    

Answer 1

直接写到你的工程文件中,主form创建前,
如果成功则正常执行程序,否则退出.
当然了这样做并不保险,你最好在加一个次数的限制!
但其实写注册表是没太大用处的,蒙蒙罢了!

Answer 2

我用的是win2000server，根本没有Software\Microsoft\Windows\CurrentSowft\tag 
  键值！我想知道的是怎么把这段代码加入我的应用？？？

Answer 3

老兄：
  我刚学delphi不久，不要搞的太神秘，来点简单的，就告诉我具体怎么做，比如：
第一步：
  打开应用：新建个form，然后拷贝这段代码过来，保存成名字为____的文件，
然后把这个form加入应用，等等......
第二步：
.........
就这样我才能理解，OK？

Answer 4

哈，也可以在MainForm的FormShow 里直接写一个函数判断嘛
这个方法最简单也最有效

Answer 5

那段代码好像是一个简单的组件，可以把他存成pas文件，用Component->InstallPackage把它
注册成为一个组件。然后在自己的程序中：uses XXX ; //XXX是自己取的组件名var
  MyLogin: TLogin;procedure XX.FormShow();
begin
  MyLogin:= TLogin.Create; //哎呀，忘了说啦，Create是要自己重载的，加入自己的信息
  MyLogin.CheckLogin;
end;//还要重载构造函数，太麻烦了。不过搞好了就可以反复使用了。

Answer 6

使用Asprotect1.1软件保护程序！很好用，自动为你生成试用期和试用次数的控制！