engineregister.pas

FIR引擎最新源码+注册

unit EngineRegister;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, svMain, IniFiles, RzButton, Mask, RzEdit;

type
  TFrmRegister = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    EditRegisterName: TRzEdit;
    RzBitBtnRegister: TRzBitBtn;
    MemoRegisterCode: TRzMemo;
    procedure RzBitBtnRegisterClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Open();
  end;

var
  FrmRegister: TFrmRegister;

implementation
uses M2Share, SDK;
{$R *.dfm}
procedure TFrmRegister.Open();
begin
  EditRegisterName.Text := '';
  try
    if (nGetRegisterName >= 0) and Assigned(PlugProcArray[nGetRegisterName].nProcAddr) then begin
      EditRegisterName.Text := IntToStr(TGetProcInt(PlugProcArray[nGetRegisterName].nProcAddr));
    end;
  except
    ShowMessage('Error!!!');
  end;
  ShowModal;
end;

procedure TFrmRegister.RzBitBtnRegisterClick(Sender: TObject);
var
  sRegisterName, sRegisterCode: string;
begin
  sRegisterName := Trim(EditRegisterName.Text);
  sRegisterCode := Trim(MemoRegisterCode.Text);
  if (sRegisterName <> '') and (sRegisterCode <> '') then begin
    if (nStartRegister >= 0) and Assigned(PlugProcArray[nStartRegister].nProcAddr) then begin
      if TStartRegister(PlugProcArray[nStartRegister].nProcAddr)(PChar(sRegisterCode)) then begin
        UserEngine.m_TodayDate := 0;
      end;
    end;
  end;
  Close;
end;

end.