delphi加载驱动的代码演示

{*********************************************************************** }
{ 模块名称:MyDriver }
{ 模块功能:加载/卸载驱动程序 }
{ 版 本号:v1.0.0 }
{ 日 期:2008-5-18 }
{ *********************************************************************** }
unit MyDriver;
interface
uses
Windows,SysUtils,Tlhelp32,WinSvc;
{功能:加载驱动程序
参数:sztheDriverName:驱动程序完成路径.
szSvrName :驱动程序名称.}
function InstallDriver(sztheDriverName,szSvrName:string):Boolean;
{功能:卸载驱动程序
参数:szSvrName :驱动程序名称.}
function UnInstallDriver(szSvrName:string):Boolean;
implementation
function InstallDriver(sztheDriverName,szSvrName:string):Boolean;
var
hServiceMgr,hServiceTwdm:SC_HANDLE;
szDir:array[0..1023]of char;
lpsztheDriverName,p:PChar;
begin
ZeroMemory(@szDir,1024,',',');
strcopy(szDir,Pchar(sztheDriverName),',',');
lpsztheDriverName:=@szDir;
{打开服务控制管理器}
hServiceMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS ,',',');
if hServiceMgr=0 then
begin
{OpenSCManager() Faild.}
Result:=False;
Exit;
end;
hServiceTwdm:=CreateService(hServiceMgr,
PChar(szSvrName), {SYSTEM\CurrentControlSet\Services驱动程序的在注册表中的名字}
PChar(szSvrName), {注册表驱动程序的 DisplayName 值}
SERVICE_ALL_ACCESS, {加载驱动程序的访问权限}
SERVICE_KERNEL_DRIVER,{表示加载的服务是驱动程序}
SERVICE_DEMAND_START, {注册表驱动程序的 Start 值}
SERVICE_ERROR_IGNORE, {注册表驱动程序的 ErrorControl 值}
lpsztheDriverName, {注册表驱动程序的 ImagePath 值}
nil,nil,nil,nil,nil,',',');
if hServiceTwdm=0 then
begin
if GetLastError()=ERROR_SERVICE_EXISTS then
begin
{Service Exists}
hServiceTwdm:=OpenService(hServiceMgr,PChar(szSvrName),SERVICE_ALL_ACCESS,',',');
if hServiceTwdm=0 then
begin
CloseServiceHandle(hServiceMgr,',',');
Result:=False;
Exit;
end;
end
else
begin
CloseServiceHandle(hServiceMgr,',',');
Result:=False;
Exit;
end;
end;
{Start the drivers}
if hServiceTwdm<>0 then
begin
if StartService(hServiceTwdm,0,p)=False then
begin
if ERROR_SERVICE_ALREADY_RUNNING=GetLastError() then
begin
{no real problem}
end
else
begin
CloseServiceHandle(hServiceMgr,',',');
CloseServiceHandle(hServiceTwdm,',',');
Result:=False;
Exit;
end;
end;
CloseServiceHandle(hServiceMgr,',',');
CloseServiceHandle(hServiceTwdm,',',');
end;
Result:=True;
end;
function UnInstallDriver(szSvrName:string):Boolean;
var
hServiceMgr,hServiceTwdm:SC_HANDLE;
SvrSta:SERVICE_STATUS;
begin
hServiceMgr:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS ,',',');
if hServiceMgr=0 then
begin
{OpenSCManager() Faild.}
Result:=False;
Exit;
end;
hServiceTwdm:=OpenService(hServiceMgr,PChar(szSvrName),SERVICE_ALL_ACCESS ,',',');
if hServiceTwdm=0 then
begin
{OpenService() Faild.}
CloseServiceHandle(hServiceMgr,',',');
Result:=False;
Exit;
end;
{停止驱动程序,如果停止失败,只有重新启动才能,再动态加载。}
if ControlService(hServiceTwdm,SERVICE_CONTROL_STOP,SvrSta)=False then
begin
{ControlService() Faild.}
CloseServiceHandle(hServiceTwdm,',',');
CloseServiceHandle(hServiceMgr,',',');
Result:=False;
Exit;
end;
{动态卸载驱动程序.}
if DeleteService(hServiceTwdm)=False then
begin
{DeleteSrevice() Faild.}
CloseServiceHandle(hServiceTwdm,',',');
CloseServiceHandle(hServiceMgr,',',');
Result:=False;
Exit;
end;
CloseServiceHandle(hServiceTwdm,',',');
CloseServiceHandle(hServiceMgr,',',');
Result:=True;
end;
end.