Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];
Вниз
Работа с сервисами Найти похожие ветки
← →
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)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c
