Установка драйвера

Code:

{©Drkb v.3}

function Install: Boolean;

const

StartType =

{$IFDEF SERVICE_DEBUG}          

   SERVICE_DEMAND_START;

{$ELSE}

   SERVICE_AUTO_START;

{$ENDIF}

var

SCManager, Service: SC_HANDLE;

Info: String;

begin

SCManager := OpenSCManager(nil, nil, SC_MANAGER_CREATE_SERVICE);

if SCManager <> 0 then

try

   Service := CreateService(SCManager, PChar(ServiceName), ServiceDisplayName,

     SERVICE_ALL_ACCESS, SERVICE_WIN32_SHARE_PROCESS or SERVICE_INTERACTIVE_PROCESS,

     StartType, SERVICE_ERROR_NORMAL, PChar('"' + ParamStr(0) + '" -service'),

     nil, nil, nil, nil, nil);

   if Service <> 0 then

   try

     Result := ChangeServiceConfig(Service, SERVICE_NO_CHANGE,

       SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, nil, nil,

       nil, nil, nil, nil, nil);

     Info := ServiceInfo;

     if Result then

       Result := ChangeServiceConfig2(Service,

         SERVICE_CONFIG_DESCRIPTION, @Info);

   finally

     CloseServiceHandle(Service);

   end

   else

     Result := GetLastError = ERROR_SERVICE_EXISTS;

finally

   CloseServiceHandle(SCManager);

end

else

   Result := False

end;