unitsoftregeditkey.pas

delphi做的注册码验证程序

unit UnitSoftRegeditKey;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,  ComCtrls,
  registry,Buttons
  ,UnitSoftKeyClass, UnitkeyCryptClass;
type
  Tfrm_SoftRegeditKey = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Edit_KeyCode: TLabeledEdit;
    BtStart: TSpeedButton;
    BtExit: TSpeedButton;
    BtNext: TSpeedButton;
    TabSheet3: TTabSheet;
    Edit_ProductId: TLabeledEdit;
    Edit_RegeditName: TLabeledEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Edit_UserID: TLabeledEdit;
    Edit_UserName: TLabeledEdit;
    procedure BtStartClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_SoftRegeditKey: Tfrm_SoftRegeditKey;
  Reg:TRegistry;
implementation


{$R *.dfm}

procedure Tfrm_SoftRegeditKey.BtStartClick(Sender: TObject);
begin
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion',False);
    //Edit1.Text:='当前路径：'+Reg.CurrentPath;
    //Product_Id:='产品系列号：'+Reg.ReadString('ProductId');
    Product_Id:=Reg.ReadString('ProductId');
    //Edit3.Text:='产品名：'+Reg.ReadString('ProductName');
    //Edit4.Text:='注册公司名称：'+Reg.ReadString('RegisteredOrganization');
    //Edit5.Text:='用户名：'+Reg.ReadString('RegisteredOwner');
    //Edit6.Text:='软件类型：'+Reg.ReadString('SoftwareType');
    Reg.CloseKey;
    Reg.Free;  
    Edit_RegeditName.Text:= Decrypt(Trim(Edit_KeyCode.Text),'luersoft');
    Edit_ProductId.Text  := Trim(Product_Id); 
end;

procedure Tfrm_SoftRegeditKey.SpeedButton1Click(Sender: TObject);
begin
    Edit_ProductId.Text:=Encrypt(Edit_RegeditName.Text,'luersoft');
end;

end.