如何给系统加上试用版功能 ( 积分: 100 )

我想给我设计的系统加上试用版功能，如三个月试用，一到期，软件不能使用。
输入有效密码后，激活软件，可以永久使用。

这个功能也可以通过制作安装软件完成，如Installshield 11.5以后的版本

如果是商用软件,可以连续我,保证给你一个安全而稳定的强大加密.

白兄，又在推荐虚拟机了。

虚拟机是个好东西。

妈的，发了好几次都发不了
------------------
发布 dll ，添加 该 dll 到你的程序中，可以使软件有注册的功能,请大家试用 [849字节 qi_jianzhou 2006-6-27 10:32:34 回

复:14/436 版块:灌水乐园] 引用
花了两个晚上做了一个 dll ,用于程序注册的

地址在 zzaiss.ik8.com/soft/Register.rar
注册机 zzaiss.ik8.com/soft/getRegSN.rar

注册时，对于申请到的序列号，只复制里面的日期和时间就行了，其它的不要，把复制的日期时间考到

注册机的输入申请到的注册号的文本框里，点到注册码就行了



该 dll 的导出函数名为:

function checkReg(handle:THandle;var Days:integer):integer;stdcall;

使用例子

// 用的是静态导入，也可以动态导入 loadLibrary
function checkReg(Handle:THandle;var Days:integer):integer;stdcall;external 'Dll/Register.dll';


使用

re := checkReg(application.Handle,Days);
if (re = 1) or (re = 2) then
begin
if re = 2 then // 下面的可以换成你的，为的是改变标题栏
appConfig^.appName := appconfig^.appName+
' --- 未注册版本 还可以用 '+IntToStr(Days)+
' 天 ';

end else
begin
application.Terminate;
exit;
end;

返回值
1 -> 成功
2 -> 在使用期内
3 -> 程序被破坏
4 -> 取注册
5 -> 退出








[Q]作者:qi_jianzhou 主题:发布 dll ，添加 该 dll 到你的程序中，可以使软件有注册的功能,请大家试用[BR]花了两个

晚上做了一个 dll ,用于程序注册的地址在 zzaiss.ik8.com/soft/Register.rar 注册机 zzaiss.ik8.com/soft/getRegSN.rar

注册时，对于申请到的序列号，只复制里面的日期和时间就行了，其它的不要，把复制的日期时间考到注册机的输入申请到的注册号

的文本框里，点到注册码就行了 该 dll 的导出函......[/Q]
发布 dll ，添加 该 dll 到你的程序中，可以使软件有注册的功能,请大家试用
签名:
--- 莫等闲，白了少年头，空悲切 ---




源码



原文:http://www.aidelphi.com/ShowTopic.asp?TopicID=17474&PageIDX=1&SpaceID=62#CurrentTopic

这种试用加密根本就是秒杀。