检测年限版加密锁

Encrypt/EncryptDog.pas

@@ -33,6 +33,28 @@ begin
 
       Exit;
     end;
+
+    CS_EndDate:
+    begin
+      if (CommonMessage(pmtWarning, [pmbOk, pmbCancel],
+      '您的使用时间已到，是否通过注册文件延长使用时间？') = pmOK) then
+      begin
+        if not Authorize then
+        begin
+          Exit;
+        end;
+      end
+      else
+      begin
+        Exit;
+      end;
+    end;
+
+    CS_CloseToLimitDate:
+    begin
+      CommonMessage(pmtHint, [pmbOk], '您的加密锁使用时间即将到期，如需延长使用时间，请联系客服中心。');
+    end;
+
     CS_WantAuthorize:
       bWantAuthorize := True;
   end;