Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Don´t Show in Task List
- Thread starter cimd
- Start date
Have you tried [tt]App.TaskVisible = False[/tt]?
If that doesn't work you might try:[tt]
Private Declare Function RegisterServiceProcess Lib _
"kernel32" (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long
Private Declare Function GetCurrentProcessId Lib _
"kernel32" () As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Private Sub Form_Load()
ret = RegisterServiceProcess( _
GetCurrentProcessId(), _
RSP_SIMPLE_SERVICE)
End Sub
Private Sub Form_Unload(Cancel As Integer)
ret = RegisterServiceProcess( _
GetCurrentProcessId(), _
RSP_UNREGISTER_SERVICE)
End Sub
[/tt]
...just don't try it with NT
If that doesn't work you might try:[tt]
Private Declare Function RegisterServiceProcess Lib _
"kernel32" (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long
Private Declare Function GetCurrentProcessId Lib _
"kernel32" () As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Private Sub Form_Load()
ret = RegisterServiceProcess( _
GetCurrentProcessId(), _
RSP_SIMPLE_SERVICE)
End Sub
Private Sub Form_Unload(Cancel As Integer)
ret = RegisterServiceProcess( _
GetCurrentProcessId(), _
RSP_UNREGISTER_SERVICE)
End Sub
[/tt]
...just don't try it with NT
- Status
