Работа с сервисами

← →
Windows © (2005-09-09 10:54) [0]

Следующая функция создает сервис:

function CreateNTService(ExecutablePath, ServiceName: string): boolean;
var
hNewService, hSCMgr: SC_HANDLE;
FuncRetVal: Boolean;
begin
FuncRetVal := False;
hSCMgr := OpenSCManager(nil, nil, SC_MANAGER_CREATE_SERVICE);
if (hSCMgr <> 0) then
begin
hNewService := CreateService(hSCMgr, PChar(ServiceName), PChar

(ServiceName),
STANDARD_RIGHTS_REQUIRED, SERVICE_WIN32_OWN_PROCESS,
SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL,
PChar(ExecutablePath), nil, nil, nil, nil, nil);
CloseServiceHandle(hSCMgr);
if (hNewService <> 0) then
FuncRetVal := true
else
FuncRetVal := false;
end;
CreateNTService := FuncRetVal;
end;

Как доработать ее до того, чтобы она создавала сервис, который был бы:
1. Уже запущен.
2. Его нельзя было отсановить, выключить.(короче все эти команды были

отключены)
3. И он был на автозапуске.

← →
Digitman © (2005-09-09 11:07) [1]

> 1. Уже запущен.

см. StartService()

> 2. Его нельзя было отсановить, выключить

см. в справке по CreateService() описание 4-го параметра ф-ции (dwDesiredAccess)

> 3. И он был на автозапуске

см. в справке по CreateService() описание 6-го параметра ф-ции (dwStartType)

Работа с сервисами Найти похожие ветки