我的程式註冊_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 ->  退出