文件名称：软件注册设计与时间限制设计
文件大小：3KB
文件格式：TXT
更新时间：2009-03-15 02:52:39
控件 源码 系统相关类 资源
请不要用于商业或谋取非法利益！只限于学习交流！有关时间限制使用和软件注册的设计!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.OpenKey(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;