В том виде, в котором в книге:
- Код: Выделить всё
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