LoadDriver加载驱动代码

阿杰

1. 
   
2. //OpenSCManager - > CreateService - > StartService 大概流程是这样...
   
3.   function LoadDriver(lpService, lpFileName: string): Boolean;
   
4. const
   
5.   METHOD_BUFFERED = $00000000;
   
6.   FILE_SPECIAL_ACCESS = $00000000;
   
7.   FILE_DEVICE_FILE_SYSTEM = $00000009;
   
8.   FSCTL_SET_SPARSE = FILE_DEVICE_FILE_SYSTEM shl 16 or FILE_SPECIAL_ACCESS shl 14 or 49 shl 2 or METHOD_BUFFERED;
   
9. var
   
10.   pStart: Pchar;
    
11.   hFile: THandle;
    
12.   hSC, hSvc: THandle;
    
13.   BytesReturned: Cardinal;
    
14.   hStatus: SERVICE_STATUS;
    
15. begin
    
16.   Result := False;
    
17.   if not FileExists(Pchar(lpFileName)) then Exit;
    
18.   hSC := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
    
19.   try
    
20.     if hSC <> 0 then
    
21.     begin
    
22.       hSvc := CreateService(hSC, PChar(lpService), PChar(lpService), SERVICE_START or SERVICE_STOP, SERVICE_KERNEL_DRIVER,
    
23.         SERVICE_DEMAND_START, SERVICE_ERROR_IGNORE, PChar(lpFileName), nil, nil, nil, nil, nil);
    
24.       if ERROR_SERVICE_EXISTS = GetLastError() then
    
25.       begin
    
26.         hSvc := OpenService(hSC, PChar(lpService), SERVICE_START);
    
27.       end;
    
28.       StartService(hSvc, 0, pStart);
    
29.       {ControlService(hSvc, SERVICE_CONTROL_STOP, hStatus);
    
30.    DeleteService(hSvc); }//这里是停止和删除服务的,哈哈
    
31.     end;
    
32.   finally
    
33.     CloseServiceHandle(hSC);
    
34.   end;
    
35. end;

复制代码

DevilLiao

感觉这种方式不稳定啊

kk1025

DevilLiao 发表于 2013-1-11 19:29
感觉这种方式不稳定啊

哪裡會不穩

upring

基本调用原理清晰 谢谢斑竹