demo.pas

包括密钥盘制作软件、LIB、DLL 加密模块 各种语言调用加密模块的例子程序、网络注册软件等

unit demo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Zlocksoft;

type
  TForm1 = class(TForm)
    RUN: TButton;
    procedure Form1Create(Sender: TObject);
    procedure RUNClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    pDataBuffer: PChar;         //定义返回的字符串
    hLibHandle: THandle;

implementation

{$R *.DFM}

procedure TForm1.Form1Create(Sender: TObject);   //程序一运行就判断是否注册
var I: Integer;
begin
        pDataBuffer:=nil;
        pDataBuffer:=AllocMem(10); //定义返回的字符串空间

        //调用判断是否注册函数，若返回值 Zhuce 为零说明注册成功

        Zhuce:=Testkey(30,pDataBuffer,0);  //可试用30天，试用期过后，若把系统时间改回来，可以运行

//        Zhuce:=Testkey(30,pDataBuffer,1);  //可试用30天，试用期过后，即使把系统时间改回来，也不能再运行

        for I := 0 to 9 do TestLock[I]:=Ord(pDataBuffer[I]);
                //把返回的字符串转换为一数组供您程序中判断或使用，
                //若注册成功其值为 10 11 12 13 14 15 16 17 18 19

end;

procedure TForm1.RUNClick(Sender: TObject);
begin
        case Zhuce of
            0:  ShowMessage('软件已注册，程序可以继续运行！');
            -1: ShowMessage('软件没有注册，不能运行。    请把 C 盘根目录下面的文件 CLIENTINFO.DAT 用 Email 发给 [e-mail] 换取注册文件。');
        end;

        if Zhuce>0 then
                ShowMessage('软件没有注册，但在试用期内，软件可以试运行。    请把 C 盘根目录下面的文件 CLIENTINFO.DAT 用 Email 发给 [e-mail] 换取注册文件。');



//。。。。。。。
//。。。。。。。

        if TestLock[0]=10 then
                ShowMessage('返回数组正确，程序可以正常运行！');
//。。。。。。。在您的软件中穿插判断数组值，以防软件被软解密
//。。。。。。。最好把数组值作为您程序中的变量
//。。。。。。。
        if TestLock[3]=13 then
                ShowMessage('返回数组正确，程序可以正常运行！');
//。。。。。。。
        if TestLock[5]=15 then
                ShowMessage('返回数组正确，程序可以正常运行！');
//。。。。。。。
        if TestLock[8]=18 then
                ShowMessage('返回数组正确，程序可以正常运行！');
//。。。。。。。
//。。。。。。。

end;

end.