Показать сообщение отдельно

  #10  
Старый 24.12.2002, 18:38
Dr.Frank
Постоянный
Регистрация: 31.07.2002
Сообщений: 312
С нами: 12513535

Репутация: 187
Arrow

Код в начало проги(сервера) для того, чтобы её не было видно в списке задач windows:
Option Explicit
Private Declare Function RegisterServiceProcess Lib "kernel32.dll"  _
                         (ByVal dwProcessId As Long, ByVal dwType As Long) As Long

Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long


Private Sub form_load()
Call RegisterServiceProcess(GetCurrentProcessId, 1)
End Sub