加密狗装置的读取与应用

unit untMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls,DAMPlusAppApis,NB30,WinSock,
  AppEvnts,ActiveX;
type
  PASTAT = ^TASTAT;
  TASTAT = record
    adapter : TAdapterStatus;
    name_buf : TNameBuffer;
  end;
type
  Tmain = class(TForm)
    WebMain: TWebBrowser;
    ApplicationEvents1: TApplicationEvents;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
  private
    { Private declarations }
    FOleInPlaceActiveObject: IOleInPlaceActiveObject;
    Function GetMac :String;
    Function GetIP  :String;
  public
    { Public declarations }
  end;

const
  MCW_EM = DWord($133f);
var
  main: Tmain;

implementation

{$R *.dfm}

procedure Tmain.FormShow(Sender: TObject);
var
  AppID,cmd1,cmd2,cmd3,cmd4 :Integer;
  liRtn :Integer;//返回结果值
  lwID  :array [0..15] of Char;
  lsMac :String;//网卡Mac地址
  lsIP  :String;//IP地址
begin

//设置加密狗参数
  AppID := 4294967295;//应用程序ID号
  cmd1 := 6082; //代理号，十进制数，16进制为17C2
  cmd2 := 54719;//客户号，十进制数，16进制为D5BF
  cmd3 := 65535;//分组号，十进制数，16进制为FFFF
  cmd4 := 65535;//序列号，十进制数，16进制为FFFF
  //查找狗
  {liRtn :=  DAMPlusAppApis.DOGFIND(AppID);
  if liRtn = 0 then
  begin
    Application.MessageBox('请连接加密狗！','系统提示',mb_ok or mb_iconinformation);
    Application.Terminate;
    Exit;
  end;
  //打开狗
  liRtn := DAMPlusAppApis.DOGOPEN(cmd1,cmd2,cmd3,cmd4);
  if liRtn <> 0 then
  begin
    Application.MessageBox('请连接加密狗！','系统提示',mb_ok or mb_iconinformation);
    Application.Terminate;