frmregsoft.pas

用于建筑的测斜数据处理!把测试设备的数据下载电脑,通过本系统进行分析,然后生成所需要的数据!

unit frmregsoft;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,Registry, ExtCtrls, jpeg;

type
  Tregsoft = class(TForm)
    GroupBox1: TGroupBox;
    edtreg: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    lb_flag: TLabel;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  regsoft: Tregsoft;

implementation

uses frmmain;

{$R *.dfm}

procedure Tregsoft.BitBtn1Click(Sender: TObject);
var
        registerTemp:Tregistry;
        get_id:string;
        re_id:integer;
begin
        registerTemp:=Tregistry.Create;     //准备使用注册表
        with registerTemp do
        begin
                RootKey:=HKEY_LOCAL_MACHINE;//存放在根目录下
                if openkey('Software\Microsoft\Windows\CurrentVersion\cxsys',true) then
                //建立目录，存放标志值
                begin
                        if valueexists('gc_id') then //用gc_id的值作为标志，首先判断其时候存在
                        begin
                                re_id:=readinteger('gc_id'); //读取标志值
                                if re_id=0 then
                                begin
                                        showmessage('软件已经注册!');
                                        exit;
                                end;
                                get_id:=inttostr(27593758*2);   //注册码是55187516
                                if get_id=trim(edtreg.Text) then
                                begin
                                        writeinteger('gc_id',0);
                                        main.Caption:='数字测斜仪器数据分析系统-广州铁路(集团)公司科学技术研究所';
                                        lb_flag.Caption:='恭喜，软件注册成功,请放心使用';
                                        edtreg.Clear;
                                        closekey;
                                        free;
                                end
                                else
                                begin
                                        showmessage('输入的注册码有误，请重新输入!');
                                        edtreg.Clear;
                                        edtreg.SetFocus;
                                end;
                        end;
                end;
        end;

end;

procedure Tregsoft.FormActivate(Sender: TObject);
var
        registerTemp:Tregistry;
        get_id:string;
        re_id:integer;
begin
        registerTemp:=Tregistry.Create;     //准备使用注册表
        with registerTemp do
        begin
                RootKey:=HKEY_LOCAL_MACHINE;//存放在根目录下
                if openkey('Software\Microsoft\Windows\CurrentVersion\cxsys',true) then
                //建立目录，存放标志值
                begin
                        if valueexists('gc_id') then //用gc_id的值作为标志，首先判断其时候存在
                        begin
                                re_id:=readinteger('gc_id'); //读取标志值
                                if re_id=0 then
                                begin
                                        lb_flag.Caption:='软件已经注册,请放心使用';
                                end
                                else
                                begin
                                        lb_flag.Caption:='软件还没有注册';
                                        edtreg.SetFocus;
                                end;
                        end;
                end;
        end;


edtreg.Clear;

end;

procedure Tregsoft.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.