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;