客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry;//在此加上Registry以便调用注册表. type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Function Check():Boolean; Procedure CheckReg(); Procedure CreateReg(); { Private declarations } public { Public declarations } end; var Form1: TForm1; PName:string; //全局变量,存放用户名和注册码. PPass:integer; implementation {$R *.DFM} Procedure TForm1.CreateReg();//创建用户信息. var Rego:TRegistry; begin Rego:=TRegistry.Create; Rego.RootKey:=HKEY_USERS; rego.OpenKey('.DEFAULT\Software\AngelSoft\Demo',True);//键名为AngelSoft\Demo,可自行修改. Rego.WriteString('Name',PName);//写入用户名. Rego.WriteInteger('Pass',PPass);//写入注册码. Rego.Free; ShowMessage('程序已经注册,谢谢!'); CheckReg; //刷新. end; Procedure TForm1.CheckReg();//检查程序是否在注册表中注册. var Rego:TRegistry; begin Rego:=TRegistry.Create; Rego.RootKey:=HKEY_USERS; IF Rego.OpenKey('.DEFAULT\Software\AngelSoft\Demo',False) then begin Form1.Caption:='软件已经注册'; Button1.Enabled:=false; Label1.Caption:=rego.ReadString('Name');//读用户名. Label2.Caption:=IntToStr(Rego.ReadInteger('Pass')); //读注册码. rego.Free; end else Form1.Caption:='软件未注册,请注册'; end; Function TForm1.Check():Boolean;//检查注册码是否正确. var Temp:pchar; Name:string; c:char; i,Long,Pass:integer; begin Pass:=0; Name:=edit1.Text; long:=length(Name); for i:=1 to Long do begin temp:=pchar(copy(Name,i,1)); c:=temp^; Pass:=Pass+ord(c); //将用户名每个字符转换为ASCII码后相加. end; if StrToInt(Edit2.Text)=pass then begin Result:=True; PName:=Name; PPass:=Pass; end else Result:=False; end; procedure TForm1.Button1Click(Sender: TObject); begin if Check then CreateReg else ShowMessage('注册码不正确,无法注册'); end; procedure TForm1.FormCreate(Sender: TObject); begin CheckReg; end; end. <注册器> 在DELPHI下新建一工程,放置Edit1,Edit2,Button1组件.具体代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var Temp:pchar; Name:string; c:char; i,Long,Pass:integer; begin Pass:=0; Name:=edit1.Text; long:=length(Name); for i:=1 to Long do begin temp:=pchar(copy(Name,i,1)); c:=temp^; Pass:=Pass+ord(c); end; edit2.text:=IntToStr(pass); end; end. |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论