软件试用限制 赫赫,到时间自动删除不就行了?我就是这么做的!不过我的程序只有我自己使用。:) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用加密锁,都提供软件试用限制功能,还可以让你的用户觉得你的软件是真正的软件产品。 用加密锁,也可以用时间限制.比如,软件到一定的日期就不能使用。 每一个软件的完成都是编程人员心血的结晶,因而,当盗版的黑手伸向你的劳动成果时,怎不令人可怜、可恨!逼得我们只好拿起武器,捍卫自己的劳动成果。以下的两段小程序,可以防止他人非法使用自己的软件。(让我们共同反对盗版!) 程序一:放于主程序的开头,用于检查文件“cjgl.dat”是否存在,若不存在,便退出,程序不能继续执行。需要注意的是文件“cjgl.dat”不能与主程序放于同一目录。这里放在win.com所在目录,选win.com主要是因为win.com必定存在。程序段如下: path1=fullpath(″win.com″,1) &&检查文件win.com所在目录 len=len(path1)-7 fil=left(path1,len)+″cjgl.dat″ if !file(fil) && 如文件cjgl.dat不存在提出警告 mes=messagebox(″要用软件,请与作者联系!″,64,″重要信息″) quit endif 程序二:用于软件的注册,此程序运行结果即将软盘上的“cjgl.dat”文件拷贝至win.com所在目录下。cjgl.dat文件内容任意。程序如下: set talk off path1=fullpath(″win.com″,1) len=len(path1)-7 fil=left(path1,len)+″cjgl.dat″ if file(fil) && 先判断cjgl.dat是否存在指定目录下 =messagebox(″学生成绩管理系统已经注册!″,64,″提示″) &&如存在,说明已注册过 else &&如不存在,拷贝程序 copy file cjgl.dat to &fil =messagebox(″注册完毕!″,64,″提示″) endif quit 若加上时间限制及内存变量,可让程序限时试用。 Remobjects SDK DA HA的问题 ShareMemory的问题,急 如何读取ini文件中非ASCII码键值 有两个问题,1、用连接MSsqlserver数据库准备用ADO方式,请问在delphi7代码中如何代参数执行sqlserver的存储过程?2、不熟悉delphi下个可 如何设置页面的颜色 ActiveX控件隐藏了,怎么再显示出来? 表格问题 请教有关SQL数据更新的问题! 如何设置delphi的控件栏 如何使StringGrid组件Cells内容分行显示? 请问在过程里传的数组参数为什么不能在过程里动态改变数组的长度 问问WPTools汉字问题?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货