cec_misregister.pas

来自「档案资料管理系统」· PAS 代码 · 共 30 行

unit CEC_MISRegister;

interface
uses
 Windows,Messages,Dialogs,Forms,inifiles,SysUtils;
 function Cec_MisReg(RegNumber:string):String;
implementation

function Cec_MisReg(RegNumber:string):String;
var
 RegNumber1:Tinifile;
 RegNumberString:string;
 ComputerName1:string;
begin
 RegNumber1:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'AppConfig.ini');
 RegNumberString:=RegNumber1.ReadString('RegNumber','RegNumber','');
 if RegNumberString=RegNumber then
 else
  begin
   ComputerName1:=Inputbox('注册','请输入产品序列号      ','');
   if ComputerName1=RegNumber then
      RegNumber1.WriteString('RegNumber','RegNumber',ComputerName1)
   else
    begin
     Application.Terminate;
    end;
  end;
end;
end.