Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Функция возвращает идентификатор текущего процесса
' Скроем приложение из списка программ в окне, ' вызываемом клавишами CTRL-ALT-DEL Dim pid As Long, reserv As Long ' Получим идентификатор текущего процесса pid = GetCurrentProcessId() ' Регистрируем программу как служебную (прячем) regserv = RegisterServiceProcess(pid, 1)