Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,115 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "GlobalUnit.h"
+#include "ActCodeFormUnit.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TActCodeForm *ActCodeForm = NULL;
+//---------------------------------------------------------------------------
+__fastcall TActCodeForm::TActCodeForm(TComponent* Owner, String code, int exp)
+	: TForm(Owner)
+{
+	m_sCode = code;
+	m_tExpire = exp;
+}
+//---------------------------------------------------------------------------
+void __fastcall TActCodeForm::FormCreate(TObject *Sender)
+{
+	m_leActCode->Text = m_sCode;
+    m_leActCode->OnChange = OnCodeChange;
+
+	if(m_sCode.Length()){
+		if(!m_tExpire)
+			m_lbTips->Caption = "授权验证失败，请重新验证";
+		else if(m_tExpire < time(NULL))
+			m_lbTips->Caption = "授权码已过期，请延期或更换";
+		else{
+			tm* dt = localtime((long*)&m_tExpire);
+			m_lbTips->Caption = Format(String("有效期至：%.4d-%.2d-%.2d %.2d:%.2d"),
+					ARRAYOFCONST((dt->tm_year+1900, dt->tm_mon+1, dt->tm_mday, dt->tm_hour, dt->tm_min)));
+		}
+	}
+	else
+		m_lbTips->Caption = "请输入授权码并验证";
+}
+//---------------------------------------------------------------------------
+void __fastcall TActCodeForm::OnCodeChange(TObject *Sender)
+{
+	m_btnOk->Caption = "验证";
+	m_btnOk->Enabled = m_leActCode->Text.Length()>0;
+
+	if(m_tExpire>0){
+		m_tExpire = 0;
+		m_lbTips->Caption = "请输入授权码并验证";
+	}
+}
+//---------------------------------------------------------------------------
+void __fastcall TActCodeForm::OnCodeKeyPress(TObject *Sender, System::WideChar &Key)
+{
+	if(Key==13)
+		OnOkClick(NULL);
+	else if(Key<0x1E)
+		return;
+
+	if((Key>'9' || Key<'0') && (Key<'A' || Key>'F'))
+		Key = 0;
+}
+//---------------------------------------------------------------------------
+void __fastcall TActCodeForm::OnOkClick(TObject *Sender)
+{
+	if(m_btnOk->Caption=="关闭"){
+		ModalResult = mrCancel;
+        return;
+	}
+
+	String code = m_leActCode->Text;
+	if(code.Length()<9 || code.Length()>10){
+		MessageBox(Handle, L"无效的授权码", L"验证", MB_ICONERROR | MB_OK);
+		return;
+	}
+
+	for(int i=1; i<=code.Length(); i++){
+		char Key = code[i];
+		if((Key>'9' || Key<'0') && (Key<'A' || Key>'F')){
+			MessageBox(Handle, L"无效的授权码", L"验证", MB_ICONERROR | MB_OK);
+			return;
+		}
+	}
+
+	m_sCode = code;
+	Enabled = false;
+	Screen->Cursor = crHourGlass;
+
+	PostMessage(Application->MainFormHandle, UM_USERCONFIRM, UR_VERIFY, 0 );
+}
+//---------------------------------------------------------------------------
+void __fastcall TActCodeForm::UMUserConfirm(TMessage &msg)
+{
+	Screen->Cursor = crDefault;
+	Enabled = true;
+
+	if(msg.WParam==102)
+		m_lbTips->Caption = "无效的授权码，请重新输入";
+	else if(msg.WParam==106)
+		m_lbTips->Caption = "该授权码正在其它设备上使用";
+	else if(msg.WParam>0)
+		m_lbTips->Caption = "授权验证异常，请稍后重试";
+	else{
+		m_tExpire = (int)msg.LParam;
+
+		if(m_tExpire < time(NULL))
+			m_lbTips->Caption = "授权码已过期，请延期或更换";
+		else{
+			tm* dt = localtime((long*)&m_tExpire);
+			m_lbTips->Caption = Format(String("有效期至：%.4d-%.2d-%.2d %.2d:%.2d"),
+					ARRAYOFCONST((dt->tm_year+1900, dt->tm_mon+1, dt->tm_mday, dt->tm_hour, dt->tm_min)));
+			m_btnOk->Caption = "关闭";
+		}
+	}
+}
+//---------------------------------------------------------------------------
+