| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нечто с трудом понимаемое... [D6, Win2k]

Dark Hunter ©   (2002-09-17 15:51:00) 

Здравствуйте!
Трабла в следующем:
Пытаюсь поставить службу на локальную машину
*****************************
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"ом)?
Спасибо.

---

alena.svt   (2002-09-17 18:42:00) [1]

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

---

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

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

---

Dark Hunter   (2002-09-17 16:13:00) [3]

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

Что за ошибка

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

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

---

Наверх