Часто задаваемые вопросы и ответы по программированию на VB
Последнее обновление: 28.03.03
Q: Как скрыть программу от таск-менеджера?
А1 (ego): Для Win9x, Me можно использовать следующий код.
Option Explicit
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Command1_Click()
'Скрыть
RegisterServiceProcess GetCurrentProcessId, RSP_SIMPLE_SERVICE
End Sub
Private Sub Command2_Click()
'Показать
RegisterServiceProcess GetCurrentProcessId, RSP_UNREGISTER_SERVICE
End Sub
FAQ составлен по материалам Форума на Исходниках.Ру.
Составитель:
Crew
Copyright © 2002 by Sources.ru. All rights
reserved.