开发工具:
文件大小: 3kb
下载次数: 0
上传时间: 2006-02-23
详细说明： 请不要用于商业或谋取非法利益！只限于学习交流！有关时间限制使用和软件注册的设计!procedure Tgcdzsys_grjs.FormCreate(Sender: TObject);var Reg:Tregistry; //自定义注册表变量 NowDate,FirstDate:TDateTime;//自定义时间变量 KeyName,TempCode,TempName,TempStr:string; //自定义字符串变量 Same:Integer; //自定义整数变量 NumberOfDays:Real;begin //SB.Panels[0].Text:=‘ 工程地质勘察应用系统‘; //SB.Panels[1].Text:=‘ Email: Grjs_2001@163.com 或 Grjs_2004@126.com‘; NoRegistry:=true; NowDate:=date; //取得运行时系统日期 try //创建注册表，有该键则读取，无则创建 Reg:=Tregistry.Create ; Reg.RootKey :=Hkey_local_machine; KeyName:=‘SoftwaregrjsExample‘; if Reg.O penKey(KeyName,true) then begin TempName:=Reg.ReadString(‘UsrName‘); TempCode:=Reg.ReadString(‘Passwd‘); //读取用户名，注册号 try FirstDate:=Reg.ReadDate(‘Date‘); //非第一次则读入第一次运行时间 except FirstDate:=NowDate; Reg.WriteDate(‘Date‘,NowDate); //若为第一次运行，则写入系统日期 end; end; Reg.CloseKey; finally Reg.Free; end; TempStr:=Encrypt(TempName); //通过自定义函数Encrypt（）来获取密码 Same:=CompareText(TempStr,TempCode); //比较密码 if TempName<>‘‘ then if Same=0 then NoRegistry:=false; //验证密码，通过NoRegistry为false if NoRegistry then begin //若未注册... NumberOfDays:=Nowdate-FirstDate; SpareDays:=Round(10-NumberOfDays); ShowMessage(‘你已经剩下‘+FloatToStr(SpareDays)+‘天的使用时间了！请尽快注册！‘); if((NumberOfDays>10) or (NumberOfDays<-1)) then begin ShowMessage(‘程序未注册超过试用期或更改系统时间，将终止运行!‘); Application.Terminate;//超过10天，则禁止运行 end; end;end;function Tgcdzsys_grjs.Encrypt(TempStr:string):string;var Str1:String; i,j:Integer;begin Str1:=‘‘; for i:=1 to Length(TempStr) do begin //密码匹配方式 j:=(i*i*i*i mod (i+30))+(i*i mod (i+20))+i*3+1; Str1:=Str1+chr(ord(TempStr[i])+j); end; Result:=Str1;end;procedure Tgcdzsys_grjs.DBBhelphgrjsClick(Sender: TObject);var InptName,InptCode,RealCode:String; Same:Integer; Reg:Tregistry; Keyname:String;begin if NoRegistry then //未注册时做 begin RealCode:=‘‘; InptName:= InputBox(‘注册‘, ‘输入你的名字‘, ‘‘); if InptName<>‘‘ then begin InptCode:= InputBox(‘注册‘, ‘输入注册号‘, ‘‘); RealCode:=Encrypt(InptName); Same:=CompareText(RealCode,InptCode); if (Same<>0) then ShowMessage(‘注册号码不对,注册未成功！‘) else begin //密码匹配时做：把用户名、密码写入注册表 Try Reg:=Tregistry.Create ; //激发注册表 Reg.RootKey :=hkey_local_machine;//注册表路径 KeyName:=‘SoftwaregrjsExample‘;//创建新的注册文件 if Reg.OpenKey(KeyName,true) then begin Reg.WriteString(‘Passwd‘,InptCode); //注册密码 Reg.WriteString(‘UsrName‘,InptName);//注册用户名 end; Reg.CloseKey ; //关闭 finally Reg.Free; //释放注册表 end; NoRegistry:=false;//可修改注册后的界面 end; end; end;end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
