论坛风格切换切换到宽版
  • 4721阅读
  • 2回复

请教老虎版主,INNO SETUP怎样使安装包有一个使用期限? [复制链接]

上一主题 下一主题
离线ztsuser
 

发帖
7
金钱
70
威望
7
只看楼主 倒序阅读 0 发表于: 2015-09-27
版主,你好,我现在用INNO SETUP打包一个软件,想加一个使用有效期进去,比如:到了2016年12月31日之后,限制这个软件就不能安装了。请问代码如何实现?
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2015-09-27
这个很容易实现,但是也很容易破解。

function InitializeSetup:boolean;
begin
  result := CompareStr(GetDateTimeString('yyyymmdd', #0,#0), '20161231') <= 0;
  if not result then
    MsgBox('安装程序的有效期已经过了!', mbError, MB_OK);
end;
离线ztsuser

发帖
7
金钱
70
威望
7
只看该作者 2 发表于: 2015-09-30
回 1楼(gnatix) 的帖子
gnatix:这个很容易实现,但是也很容易破解。function InitializeSetup:boolean;begin  result := CompareStr(GetDateTimeString('yyyymmdd', #0,#0), '20161231') <= 0;....... (2015-09-27 18:59) 

好了,谢谢!