我做了一个考试系统，我想让用户安装后使用一年或几个月的时间此系统就不能登录

Question

我用DELPHI做了一个考试系统，我想让用户安装后使用一年或几个月的时间此系统就不能登录，但我看到有些系统也是这样的，但把日期往回改就又好使了，我不想这样，不能登录就是不能登录，请问大家怎么实现？如果需要程序的，请把程序给出来好吗？谢谢了
对了，DELPHI打包工具什么比较好？
我的系统是用DEPPHI7再win2000下做的，打包后再win95或win98下运行能好使吗？如果不好使，我需要提前注意点什么？谢谢，谢谢了～～～～～～

Answer 1

自己在软件里加一个记时功能，可以用哪个timer(名字忘了),每次使用系统的时间累加起来，
超过一定的时间后(比如一天算两个小时，三个月就60个小时)，就让登陆按钮不可用.

Answer 2

我来说说打包工具吧！强烈推荐使用 Inno Setup ，免费的，可以完成最常用的一些功能，有中文资源文件。下载：http://www.innosetup.com

Answer 3

我以前做方法是：
写注册表，在注册表里跟踪用户的使用记录
到时间就停止使用！
我的是系统只能使用100次（虽然和楼主意思不一样，但是目的一样）具体代码
---------------------------------------------
uses Registry;procedure TDM.DataModuleCreate(Sender: TObject);//这个可以在你主窗体创建的时候写
var
  Reg:TRegistry;
  n:string;
  a: integer;
begin
  Reg:=TRegistry.Create;
  Try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
      if Reg.OpenKey('\SoftWare\Microsoft\'+'n',true) then
      begin
         n:=Reg.ReadString('使用次数');
         try
           a := strtoint(n) ;
         except
           a := 0;
         end;
         if a > 100 then
         begin
           showmessage('系统使用期限已到，请联系软件公司，谢谢');
           Application.Terminate;
         end
         else
         begin
           n := inttostr(a+1);
           Try
             Reg.RootKey:=HKEY_LOCAL_MACHINE;
             if Reg.OpenKey('\SoftWare\Microsoft\'+'n',true) then
             //具体注册表位置可以自己改，但是最好隐藏深点
                Reg.WriteString('使用次数',n);
           finally
             Reg.CloseKey;
           end;
         end;
      end;
    finally
       Reg.CloseKey;
    end;
end;

Answer 4

DELPHI打包工具什么比较好？
---------------------------
InstallShield Express for delphi
经典的打包工具
很强大
Ino setup好象不能打包文件夹，也不支持创建文件夹