demo.cpp
来自「包括密钥盘制作软件、LIB、DLL 加密模块 各种语言调用加密模块的例子程序、网」· C++ 代码 · 共 87 行
CPP
87 行
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "demo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HINSTANCE gLiblocking=NULL;
typedef int (_stdcall * TESTKEY)(int Idate,char * testlock,int Ok_No);
TESTKEY Testkey;
int mima=-1; //若 mima=0 则软件已注册,若 mima=-1 则软件没有注册
char testlock[10]; //定义返回的字符串数组
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender) //程序一运行就判断是否注册
{
if(gLiblocking!=NULL)
{
ShowMessage("The Lock_File.dll has already been loaded.");
return;
}
gLiblocking=LoadLibrary("Lock_File.dll");
if(gLiblocking==NULL)
{
char msg[300];
strcpy(msg,"Cannot load the Lock_File.dll DLL.");
strcat(msg,"Make sure that the file Lock_File.dll");
strcat(msg,"is in you \\WINDOWS\\SYSTEM directory.");
ShowMessage(msg);
}
Testkey=(TESTKEY)GetProcAddress(gLiblocking,"Testkey");
//软件一运行就探测软件是否注册
mima=Testkey(30,testlock,0); //可试用30天,试用期过后,若把系统时间改回来,可以运行
//mima=Testkey(30,testlock,1); //可试用30天,试用期过后,即使把系统时间改回来,也不能再运行
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RUNClick(TObject *Sender)
{
int j;
if(mima==-1){
ShowMessage("软件没有注册,不能运行。 请把 C 盘根目录下面的文件 CLIENTINFO.DAT 用 Email 发给 zlocksoft@zlocksoft.com 换取注册文件。");
return;
}
if(mima>0)ShowMessage("软件没有注册,但在试用期内,软件可以试运行。 请把 C 盘根目录下面的文件 CLIENTINFO.DAT 用 Email 发给 zlocksoft@zlocksoft.com 换取注册文件。");
for(j=0;j<10;j++)if(testlock[j]!=j+10){ //在您的软件中穿插判断数组值,以防软件被软解密
ShowMessage(" 软件出错,请重新注册软件 ! ");
return; //最好把数组值作为您程序中的变量
}
for(j=0;j<50;j++)
{
MessageBeep(0xFFFFFFFF);
Sleep(100);
}
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?