csys.pas

学生成绩管理系统开发软件

unit csys;

interface

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

type
  Tsysreg = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    btnreg: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Bevel2: TBevel;
    Memo1: TMemo;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure btnregClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sysreg: Tsysreg;

implementation
uses UTIL,UREGINFO;
{$R *.dfm}

procedure Tsysreg.FormShow(Sender: TObject);
begin
if IsCPUID_Available = false then
begin
showmessage('null');
end;
label2.Caption := inttoStr(GetCPUID[4]);
edit1.SetFocus;
end;

procedure Tsysreg.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tsysreg.btnregClick(Sender: TObject);
begin
RegReg('\Software\Intel soft',edit1.Text);
IF RegReturnStr('\Software\Intel soft','SF_ID') <> RegNumber(GetCPUID[4]) THEN
 Messagebox(application.Handle,'注册不成功，请联系[e-mail]','提示',
  mb_ICONWarning+mb_OK)
else
 Messagebox(application.Handle,'注册成功!谢谢支持','提示',
  mb_ICONInformation+mb_OK);
close;
end;

procedure Tsysreg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then btnreg.Click;
end;

end.