有谁会动态生成使用 TRegware 4.02 source for D4~D7啊

Question

有谁会动态生成使用 TRegware 4.02 source for D4~D7啊
是关于对自己程序加密的
TRegware Shareware Security Component for Delphi
Version 4.02
我现在作为控件使用TRegware 4.02 时,是可以的，没有问题.
因为我现在想制作控件,直接调用使用Regware400.pas, 所以需要动态生成这个控件.
implementation
 var
 Reg                       : TRegware4;
{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  Reg := TRegware4.Create(nil);
  Reg.ProgGUID :='{E1537150-4ED8-41F2-BDC7-9C069843D7AD}';
  Reg.Seed1 :=78057134;
  Reg.Seed2 :=71910248;
  Reg.Seed3 :=200588106;
  Reg.LicenseOptions.LicenseSource := lsWindowsIDMod;
  Reg.CheckTamper :=true;
  Reg.Days :=30;
  Reg.MaxChars :=50;
  Reg.MinChars :=5;
  Reg.RegCodeSize :=20;
  Reg.Timebomb :=true;
  Reg.Reload;
 end;
但是每次明明已经注册过了,但是在这里经过create以后,程序又变成没有注册的了.
请问有谁知道该怎么做啊?
   www.csdn.net  和www.2ccc.com里都有TRegware 4.02 下载,里面也有例子程序.

Answer 1

这里是什么意思啊？
implementation 
 var 
 Reg                       : TRegware4; 
想不通你为什么把变量做成全局的，还在implementation后面？》？？？

Answer 2

我的是这样，没有问题
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, regware4, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Reg: TRegware4;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  Reg := TRegware4.Create(nil);
  try
    Reg.ProgGUID := '{E1537150-4ED8-41F2-BDC7-9C069843D7AD}';
    Reg.Seed1 := 78057134;
    Reg.Seed2 := 71910248;
    Reg.Seed3 := 200588106;
    Reg.LicenseOptions.LicenseSource := lsWindowsIDMod;
    Reg.CheckTamper := true;
    Reg.Days := 30;
    Reg.MaxChars := 50;
    Reg.MinChars := 5;
    Reg.RegCodeSize := 20;
    Reg.Timebomb := true;
    Reg.Reload;
  finally
    Reg.Free;
  end;
end;

Answer 3

lizsss我也试了下,想你这样单独放到程序里是没有问题的.
 我是想做一个控件,对控件加密,限制使用时间.
 用那个控件开发的程序,关闭后,原先已经注册的就变成没注册的了,注册表的值被改变了.
 
把分给你吧.