利用主板序列号来注册的一个例子,希望对大家有帮助.
Unit RegObj;
Interface
Uses
Type
Implementation
//TRegObj.
Constructor TRegObj.Create;
Begin
End;
Function TRegObj.GetTimes: Integer;
Const
//用于存储运行次数的文件,开发人员可自定义或使用注册表存储运行次数
//起此名字用于迷惑破解者，使用前不要和系统的动态链接库同名
Var
Begin
//取得Windows系统的目录
@Dir , 255 );
//存储运行次数
End;
Procedure TRegObj.SetSerial;
Begin
//取得主板的序列号
End;
//取得密码
Procedure TRegObj.GetKey;
Const
Var
Begin
End;
Function TRegObj.CheckKey: Boolean;
Begin
//开发人员根据自己的需要进行修改,在这里是为了简单起见
End;
Function TRegObj.Execute: Boolean;
Var
Begin
End;
End.
控件写好了,看看控件的使用方法:
Procedure TForm1.FormCreate( Sender: TObject );
Var
Begin
End;
就这么简单了.
好了,介绍完了,文章最早在大富翁上面看见,自己测试了下正常.
原作者不详了,不过我们还是要感谢他.