我的程序注册_dll

花了两个晚上做了一个 dll  ,用于程序注册的

地址在 zzaiss.ik8.com/soft/Register.rar
注册机 zzaiss.ik8.com/soft/getRegSN.rar

注册时，对于申请到的序列号，只复制里面的日期和时间就行了，其它的不要，把复制的日期时间考到

注册机的输入申请到的注册号的文本框里，点到注册码就行了

 

该 dll 的导出函数名为:

function  checkReg(handle:THandle;var Days:integer):integer;stdcall;

使用例子

// 用的是静态导入，也可以动态导入 loadLibrary
function checkReg(Handle:THandle;var Days:integer):integer;stdcall;external 'Dll/Register.dll';

使用

    re := checkReg(application.Handle,Days);
    if (re = 1) or (re = 2) then
    begin
      if re = 2 then    // 下面的可以换成你的，为的是改变标题栏
        appConfig^.appName := appconfig^.appName+
          ' --- 未注册版本 还可以用 '+IntToStr(Days)+
          ' 天 ';

    end else
    begin
      application.Terminate;
      exit;
    end;

返回值
  1 ->  成功
  2 ->  在使用期内
  3 ->  程序被破坏
  4 ->  取注册
  5 ->  退出