unit1.pas

DELPHI软件注册算法实现示例

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,registry, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;
  function regint:boolean;

implementation

uses Unit2;

//'s Unit1;

function regint:boolean;
var
reg:TRegistry;
name,vision,code:string;
flag:string;
fmcaption:string;
begin
  name:='pos';
 vision:=form1.Caption;
 code:='111111';
 fmcaption:=form1.Caption;
 reg:=Tregistry.create;
 reg.rootkey:= HKEY_CURRENT_USER;
 try
   if   not reg.KeyExists('\Software\'+name)  then
     begin

       reg.CreateKey(name);
        if reg.OpenKey('\Software\'+name,true) then
          begin
           reg.WriteString('name',name);
           reg.WriteString('vision',vision);
           reg.WriteString('rege','0');
           reg.WriteString('code',code);
         end;
      end
   else
     begin
       if reg.openkey('\Software\'+name,true) then
         flag:=reg.ReadString('rege');
           if flag='0' then
             begin
             showmessage('请注册软件！未注册使用功能有限！');
             form1.Caption:=fmcaption+'未注册！';
              result:=false;
             end
           else
           begin

            form1.N5.Enabled:=false;
               form1.Caption:= fmcaption+'已注册！';
              result:=true;
            end;
        end;
 finally
 reg.CloseKey;
 reg.Free;
 end;
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
if not regint then
  begin
   form1.N5.Enabled:=true;
   form1.N1.Enabled:=false;
   form1.N2.Enabled:=false;
  end
else
  begin
   form1.N1.Enabled:=true;
   form1.N2.Enabled:=true;
  end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
form2.showmodal;
end;

end.