| Вопрос: Cервис под XP | Добавлено: 02.05.05 14:54 |
Автор вопроса:  999 | Web-сайт: wolf002.narod.ru
|
|
Подскажите как на VB.6 написать свой серсис под XP
А то нашел только makemeservise, но это же не работает под xp. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  999 Вопросов: 13 Ответов: 26 |
Web-сайт: Профиль | | #1 | Добавлено: 02.05.05 15:39 |
|
Хотел не множко пояснить вопрос
Я говорил вот об этом MakeMeService Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long Const RSP_SIMPLE_SERVICE = 1 Const RSP_UNREGISTER_SERVICE = 0 Public Sub MakeMeService() MakeMeService: Dim pid As Long Dim reserv As Long pid = GetCurrentProcessId() regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE) End Sub |
||
|
Номер ответа: 2 Автор ответа: PeterS Вопросов: 24 Ответов: 109 |
Профиль | | #2 | Добавлено: 04.05.05 22:36 |
| Попробуй воспользоваться OCX'ом "Ntsvc.ocx". Поищи в инете, если не найдёшь давай адрес, пришлю. | ||
Страница: 1 |