大家怎么做的.比如实用版30天.正版.大家有源码吗?给我一个.还要有注册机的源码.注册码最好是由客户公司名称生成的.
解决方案 »
- listview如何根据自己宽度,来自动的调整每行显示的ICON个数,
- 我想为FindDialog的OnFind找文本,怎么写?
- 为什么 不能保存数据到数据库哪?急急!
- 急、如何用Delphi调用ADO的‘数据连接属性’窗口
- 超级强档,虽然只是一部分,但可以看出气势,推荐大家使用!
- 哪位大侠能写一个类,用来操作Excel文件的。
- ★★★★★最近开发了一个通讯软件,大家帮我看看,在天空下载站已经超过8000的下载量了★★★★★
- 怎样得到当前工程运行是所在的目录!
- 很简单的问题!(点击DBGRID中的一个格子,弹出FORM,请问是在DBGRID中的哪个事件里)
- 送50分,怎么在delphi编程中得到本机工作组名称
- webbrowser,为什么DBGrid无法获得焦点
- 咨询一下现在程序员是否都还像以前一样忙???
再判断:
if nUseCount>=30 then
提示:不能使用,请注册也可使用标准加密算法,Md5等等
BEGIN
showmessage('本程序是一个演示版!请及时向注册您的程序'+#13#10+#13#10+'您的程序序列号是:'+inttostr(strtoint(REGISTER_NUMBER_POS(GetCPUID[4]))*5+394571'); REGISTER_POS_today('\software\microsoft\sql',date);
if date-REGISTER_KEY_VALUE_DATE('\software\microsoft\sql2008','sqlRt')<0 then
表示不正常
begin
showmessage('演示期已过,请与销售商联系,以保证正确使用');REGISTER_KEY_VALUE_STR,是读注册表相应键值,
REGISTER_user_true(REGISTER_NUMBER_POS(GetCPUID[4]))获取CPU或是硬盘的ID进行异或.
REGISTER_POS_today写当前日期进注册表.进行异或,不要让人查出来.各种函数,你自己去写吧.给我点分吧.刚到CSDN上混,一点分也没有,真惨呀.