免安装WinPcap的方式建立应用程序或者安装程序

免安装WinPcap的方式建立应用程序或者安装程序



2007-05-17 19:01:20
大 中 小

前段时间使用WinPcap开发了一个捕获分析软件。还算顺利，但是在制作安装包的时候遇到一些问题。我当然不愿意让别人使用我的软件的时候安装两次，最好免安装绿色版，后来经过分析。发现一些规律，我使用Delphi7+WinPcap3.1可以实现绿色免安装使用。之前在网上看到很多都不太实用。在Xp和2000下测试成功。
下面介绍我是如何制作绿色版本的。

1）准备WinPcap的文件
首先在可以先安装WinPcap3.1（好像最新到了4.0了，不过3.1稳定），然后在
把%SystemRoot%System32目录下：
Packet.dll,wpcap.dll,WanPacket.dll,pthreadVC.dll
和%SystemRoot%System32/drivers目录下：
npf.sys
还有Winpcap安装目录下：
daemon_mgm.exe，NetMonInstaller.exe，npf_mgm.exe，rpcapd.exe
共9个文件复制到应用程序根目录。

2）在应用程序中编写代码

procedure TMonForm.FormCreate(Sender: TObject);
var

lpBuf:array[0..254] of Char;
ls_Driver : String;
ls_NpfFile:String;
ls_Lcname:String;
ls_windows:String;
begin

//获取%SystemRoot%的目录

GetWindowsDirectory(lpBuf,254);
ls_windows := StrPas(lpbuf);
//获取系统目录%SystemRoot%System32
GetSystemDirectory(lpBuf,254);
GS_SystemDir := StrPas(lpbuf);

//复制npf.sys到系统目录,并删除假目录，有时候会出现目录名和文件

//同名导致应用程序启动后看不到网卡
ls_Driver := GS_SystemDir + '/drivers';
ls_NpfFile := ls_Driver + '/npf.sys';
ls_Lcname := ExtractFilePath(Application.ExeName) + 'npf.sys';
RemoveDirectory(PChar(ls_NpfFile));
RemoveDirectory(PChar(GS_SystemDir + '/Packet.dll'));
RemoveDirectory(PChar(GS_SystemDir + '/WanPacket.dll'));
RemoveDirectory(PChar(GS_SystemDir + '/wpcap.dll'));
binPath := ExtractFilePath(Application.ExeName) ; //应用程序根目录

//判断是否存在该系统文件
if not FileExists(ls_Lcname) then
begin
Application.MessageBox(Pchar('丢失系统文件！'),

PChar('错误'), MB_OK + MB_ICONSTOP);
Application.Terminate;
end;

RemoveDirectory(PChar(ls_NpfFile));
CopyFile(PChar(ls_Lcname),PChar(ls_NpfFile),false);
CopyFile(PChar(ExtractFilePath(Application.ExeName)

+ 'Packet.dll'),PChar(GS_SystemDir + '/Packet.dll'),false);
CopyFile(PChar(ExtractFilePath(Application.ExeName)

+ 'WanPacket.dll'),PChar(GS_SystemDir + '/WanPacket.dll'),

false);
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'wpcap.dll'),
PChar(GS_SystemDir + '/wpcap.dll'),false);
CopyFile(PChar(ExtractFilePath(Application.ExeName)

+ 'pthreadVC.dll'),PChar(GS_SystemDir + '/pthreadVC.dll'),

false);
CopyFile(PChar(ls_Lcname),PChar(ls_NpfFile),false);

//这是关键部分－－－>启动捕获服务
WinExec(PChar(binPath + '/NetMonInstaller.exe u'),SW_HIDE);
WinExec(PChar(binPath + '/daemon_mgm.exe -u'),SW_HIDE);
WinExec(PChar(binPath + '/npf_mgm.exe -u'),SW_HIDE);

WinExec(PChar(binPath + '/npf_mgm.exe -r'),SW_HIDE);
WinExec(PChar(binPath + '/daemon_mgm.exe -r'),SW_HIDE);
WinExec(PChar(binPath + '/NetMonInstaller.exe i'),SW_HIDE);

//启动显示界面

//......下面就是应用程序代码，完全可以实现免安装和一体化打包
end;