regpas.pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· PAS 代码 · 共 65 行

unit regpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,registry, StdCtrls, Buttons, DiskInfo, XP_Button, XP_Form;

type
  Tw_zc = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    XP_Form1: TXP_Form;
    BITBTN1: TXP_Button;
    XP_Button1: TXP_Button;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
   pname,ppass:string;
procedure createreg();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_zc: Tw_zc;

implementation

{$R *.dfm}

procedure tw_zc.createreg();
var rego:tregistry;
begin
rego:=tregistry.create;
rego.rootkey:=HKEY_USERS;
rego.openkey('.DEFAULT\SOFTWARE\hjzcgl\hjzcgl',TRUE);
rego.writestring('name',pname);
rego.writestring('pass',ppass);
rego.free;
showmessage('程序已经注册，谢谢!');
//checkreg;
end;


procedure Tw_zc.BitBtn1Click(Sender: TObject);
begin
pname:=trim(edit1.text);
ppass:=trim(edit2.text);
if length(ppass)=16 then
createreg else
messagedlg('注册码错误，不能正确注册!',mterror,[mbok],0);
end;

procedure Tw_zc.FormActivate(Sender: TObject);
begin
edit2.text:='';
edit2.setfocus;
end;

end.