demo.pas

来自「包括 LIB、DLL 加密模块 各种语言调用加密模块的例子程序等」· PAS 代码 · 共 98 行

unit demo;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Form1Create(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    pDataBuffer: PChar;

implementation

{$R *.DFM}

procedure TForm1.Form1Create(Sender: TObject);   //TEST REGISTER
var I: Integer;
begin
        pDataBuffer:=nil;
        pDataBuffer:=AllocMem(10);

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

        Zhuce:=Testkey(30,pDataBuffer,0);

//        Zhuce:=Testkey(30,pDataBuffer,1);
//        Zhuce:=TKRegister;

        for I := 0 to 9 do TestLock[I]:=Ord(pDataBuffer[I]);
                //TESTLOCK   10 11 12 13 14 15 16 17 18 19


end;

procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin

        TKRegister(0);       //REGISTER

        Zhuce:=Testkey(0,pDataBuffer,0);
        for I := 0 to 9 do TestLock[I]:=Ord(pDataBuffer[I]);

end;

procedure TForm1.Button2Click(Sender: TObject);
var I:Integer;
begin

        I:=TKRegister(1);
        if I=0 then
        begin
                Zhuce:=-1;
                for I := 0 to 9 do TestLock[I]:=-1;

        end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
        case Zhuce of
            0:  ShowMessage('The program can run');
            -1: ShowMessage('The program can not run');
        end;

//。。。。。。。
        if TestLock[3]=13 then
                ShowMessage('The testlock is ok, the program can run');
//。。。。。。。
        if TestLock[5]=15 then
                ShowMessage('The testlock is ok, the program can run');
//。。。。。。。
        if TestLock[8]=18 then
                ShowMessage('The testlock is ok, the program can run');
//。。。。。。。
//。。。。。。。
//。。。。。。。

end;

end.