procedure TForm1.InstallDriverButtonClick(Sender: TObject);
var
 scm: SC_HANDLE;
 lAppPath: WideString;
 lRes: Boolean;
begin
 lAppPath := WideIncludeTrailingPathDelimiter(WideExtractFilePath(Application.ExeName));

 scm := OpenSCManagerW(nil, nil, SC_MANAGER_ALL_ACCESS);
 if scm <> 0 then
   begin
     lRes := InstallDriver(scm, DriverName, lAppPath + DriverName);
     Caption := FormatDateTime('hh:nn:ss.zzz', now) + ' install driver = ' + BoolToStr(lRes, True);

     CloseServiceHandle(scm);
   end;
end;

function InstallDriver(scm: SC_HANDLE; const DriverName: WideString; const DriverExec: WideString): Boolean;
var
 lService: SC_HANDLE;
 lErr: DWORD;
begin
 //инициализация, проверки
 result := False;
 if (scm = 0) or (Length(DriverName) = 0) or (Length(DriverExec) = 0) then Exit;
 //создание сервиса/драйвера
 lService := CreateServiceW(
   scm,
   PWideChar(DriverName),
   PWideChar(DriverName),
   SERVICE_ALL_ACCESS,
   SERVICE_KERNEL_DRIVER,
   SERVICE_DEMAND_START,
   SERVICE_ERROR_NORMAL,
   PWideChar(DriverExec),
   nil, nil, nil, nil, nil);

 //проверка на ошибку
 if lService = 0 then
   begin
     lErr := GetLastError;
     if lErr = ERROR_SERVICE_EXISTS then Result := True;
     //Logger.DebugLog('uDriverLoader', 'InstallDriver', 'Error '+IntToStr(lErr));

     Exit;
   end;

 //закрываем указатель
 CloseServiceHandle(lService);
 Result := True;
end;