//---------------------------------------------------------------------------

#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);
				}
	

}
//---------------------------------------------------------------------------