Скачать: CL | DM;

Описание сервиса   Найти похожие ветки 

← →
Misha Uskov ©   (2006-07-20 11:16) [0]

Безуспешно пытаюсь задать описание сервиса :-( помогите, пжалста.
{ Externals from advapi32.dll }
function ChangeServiceConfig2A(hService: SC_HANDLE; dwInfoLevel: DWORD;
                              var lpInfo): BOOL; stdcall;

function ChangeServiceConfig2A;   external advapi32 name "ChangeServiceConfig2A";
const
 SERVICE_CONFIG_DESCRIPTION = 1;
type
SERVICE_DESCRIPTION = record
  lpDescription : PAnsiChar;
end;

procedure TSPService.ServiceAfterInstall(Sender: TService);
var
 sdBuf : SERVICE_DESCRIPTION;
 h_manager, h_svc: SC_Handle;
begin
 h_manager := OpenSCManager("" ,nil, SC_MANAGER_CONNECT);
 if h_manager > 0 then
 begin
    MessageDlg("!", mtWarning, [mbOK], 0);
   h_svc := OpenService(h_manager, PChar(Name), SERVICE_QUERY_STATUS);
   if h_svc > 0 then
   begin
     sdBuf.lpDescription := PAnsiChar(CDescription);
     ChangeServiceConfig2A(h_svc, SERVICE_CONFIG_DESCRIPTION, sdBuf);
     CloseServiceHandle(h_svc);
     MessageDlg("!!", mtWarning, [mbOK], 0);
   end;
   CloseServiceHandle(h_manager);
 end;
end;

---

← →
Misha Uskov ©   (2006-07-20 11:18) [1]

на сях задекларировано так:
BOOL ChangeServiceConfig2(
 SC_HANDLE hService,
 DWORD dwInfoLevel,
 LPVOID lpInfo
);

typedef struct _SERVICE_DESCRIPTION {  LPTSTR lpDescription;
} SERVICE_DESCRIPTION

---

← →
Misha Uskov ©   (2006-07-20 11:32) [2]

ChangeServiceConfig2A возвращает ложь :-(

---

← →
Fay ©   (2006-07-20 11:38) [3]

2 Misha Uskov ©   (20.07.06 11:32) [2]
> ChangeServiceConfig2A возвращает ложь :-(
А GetLastError возвращает $FUCK, так что-ли?

---

← →
Misha Uskov ©   (2006-07-20 11:42) [4]

(Fay)
     if not ChangeServiceConfig2A(h_svc, SERVICE_CONFIG_DESCRIPTION, sdBuf)
       then MessageDlg(SysErrorMessage(getLastError), mtError, [mbOK], 0);
говорит "Отказано в доступе"

---

← →
Misha Uskov ©   (2006-07-20 11:45) [5]

упс, опять поленился :-( с getLastError. Все ясно, надо
h_svc := OpenService(h_manager, PChar(Name), SERVICE_CHANGE_CONFIG);

---

← →
Fay ©   (2006-07-20 13:16) [6]

2 Misha Uskov ©   (20.07.06 11:45) [5]
Ну и славно 8)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c