Нечто с трудом понимаемое...

← →
Dark Hunter (2002-09-17 15:51) [0]

Здравствуйте!
Трабла в следующем:
Пытаюсь поставить службу на локальную машину
*****************************
SvcInfo: TQueryServiceConfigA;
.......
With SvcInfo do
begin
dwServiceType:=5; //Win32 service that can interact with the desktop.
dwStartType:=3; //service started automatically during system startup.
dwErrorControl:=1; //logs the error but continues the startup operation.
lpBinaryPathName:=PChar(BinaryPath);
lpLoadOrderGroup:=nil;
dwTagId:=0;
lpDependencies:=nil;
lpServiceStartName:=PChar(Login);
lpDisplayName:=PChar(DisplayName);
end;

SvcDBHandle:=OpenSCManagerA(nil,
nil,
SC_MANAGER_CREATE_SERVICE);
SCError:=GetLastError;

//Появляется ошибка 997 (в модуле Windows это описано как { Overlapped I/O operation is in progress. }
//Скажите, пожалуйста, что с этим делать?
//далее:

if SvcDBHandle<>NULL then
begin
SvcHandle:=CreateServiceA(SvcDBHandle,
PChar(Name),
PChar(DisplayName),
SERVICE_ALL_ACCESS,
SERVICE_INTERACTIVE_PROCESS,
SERVICE_AUTO_START,
SERVICE_ERROR_IGNORE,
PChar(BinaryPath),
nil,
nil,
nil,
PChar(Login),
PChar(Password));
CSError:=GetLastError;
//Ошибка 87 : { The parameter is incorrect. }

//и..
StartServiceA(SvcHandle, 2, SvcArg);
SSError:=GetLastError;
//ошибка 6 : { The handle is invalid. }
Что можно с этим сделать (особенно с OpenSCManager"ом)?
Спасибо.

← →
Dark Hunter (2002-09-17 16:13) [1]

Возможно, я вас напугал этим кодом.
сделаем проще.
Наиболее всего меня интересует
SvcDBHandle:=OpenSCManagerA(nil,
nil,
SC_MANAGER_CREATE_SERVICE);

Что за ошибка

{ Overlapped I/O operation is in progress. }
ERROR_IO_PENDING = 997; { dderror }
{$EXTERNALSYM ERROR_IO_PENDING}

Подскажите, пожалуйста!

← →
alena.svt (2002-09-17 18:18) [2]

ERROR_IO_PENDING = 997
Протекает наложенное событие ввода/вывода

← →
alena.svt (2002-09-17 18:42) [3]

И еще по другому перевод
Перекрытая операция ввода.вывода продолжается

Нечто с трудом понимаемое... Найти похожие ветки