Сервис. Точней старый боян.

[Proxy]

Много раз поднималось, но ни разу не получало ответ всвязи с потенциально опасностью или чем-то в этом роде.

В том виде, в котором в книге:

Код: Выделить всё

Dim pid As Long, reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, 1)

Код: Выделить всё

Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Код: Выделить всё

Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

[ANDLL]

Ну и с какого дуба ты упал?

[Proxy]

А чего это делает? Разве это не то, о чём просили? Нет? Тогда сори.

[ANDLL]

А ты хоть пробовал запускать свой приведенный код(хоть какоунибудь)?

[Proxy]

Нет. Потому и разместил в трёпе.

[ANDLL]

Нет. Потому и разместил в трёпе.

А стоило. Тогда бы ты выяснил, что эта функция отсутствует в NT

[Proxy]

Да? Странно( А в книжке много примеров из Windows XP. Значит книга - просто сбор всего подряд.
ЗЫ. Тама даже про стили Windows XP было. А вообще в статьях платформа не указана, поэтому думал актуально. А проверять не стал. Нет времени, спать надо)

А есть всё же аналог в NT?

[ANDLL]

А есть всё же аналог в NT?

Аналог для чего? Стандартная функция для скрытия процесса из диспетчера?