网页素材: 导航菜单选项卡滑动门焦点图图片切换下拉菜单弹出层Tabs链接提示

您的当前位置: 源码爱好者 » 网页制作教程(编程教程) » Delphi技术教程

Delphi如何实现限定软件的使用时间

  • 标签:限次软件 更新时间:2014-07-22
  • 看到有不少网上下载的软件,其实是试用版本,有使用时间的限制,这也是处于软件效益保护的一种方法,让用户免费试用一段时间,若满意就可以购买商业软件。本代码功能就是如何为Delphi所编写的程序添加使用时间的限制功能,默认时限为30天:

    unit Unit1;
    interface
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
      Registry, Dialogs;
    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    var
      Form1: TForm1;
    implementation
    {$R *.DFM}
    procedure TForm1.FormCreate(Sender: TObject);
    var
        registerTemp : TRegistry;
        curDate : TDateTime;
    begin
        registerTemp := TRegistry.Create;
        with registerTemp do
        begin
            RootKey := HKEY_LOCAL_MACHINE;
            //判断是否初次运行程序
            if OpenKey('Software\MySoftware',True) then
            begin
                if ReadBool('Runned') then
                //不是第一次运行
                begin
                    curDate := Date;
                    if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') then
                    begin
                        //当前的系统时间超出了使用期限
                        ShowMessage('试用版已到期');
                        exit;
                    end
                    else
                    begin
                        DeleteKey('LastRunTime');
                        WriteTime('LastRunTime',Date);
                    end;
                end
                else
                begin
                    //初次运行程序
                    DeleteKey('Runned');
                    WriteBool('Runned',True);
                    //设置试用期限30天
                    WriteInteger('Duration',30);
                    //写入当前运行时间
                    WriteTime('LastRunTime',Date);
                end;
            end
            else
            begin
                ShowMessage('Fails!');
            end;
            CloseKey;
        end;
    end;
    end.

     

  • 已读: 次 收藏本文关闭本文打印本文复制链接
处理 SSI 文件时出错