Visual Basic - ayuda de expertos!!!

Life is soft - evento anual de software empresarial
 
Vista:

ayuda de expertos!!!

Publicado por german (11 intervenciones) el 06/10/2001 23:05:47
Gracias amigos por responder mis preguntas, me han servido mucho.

La que tengo ahora es esta: deseo que una aplicacion que estoy haciendo quede oculta (ya lo esta) pero lo que realmente deseo es que al oprimir CTRL ALT SUP no aparezca en la lista de tareas pero que en el trasfondo realmente se este ejecutando. Lo que he hecho hasta el momento es desactivar el CTRL ALT SUP pero me parece poco eficiente.
El programa se carga al iniciar windows pero deseo que no aparezca en la lista de tareas.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda de expertos!!!

Publicado por edu (423 intervenciones) el 07/10/2001 04:10:11
Declara lo siguiente en un MODULO:
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Declare Function GetCurrentProcess Lib "kernel32" () As Long
Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0

Public Sub MakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE) 'End Code
End Sub

En Load del formulario pones:
MakeMeService

Y en QUERYUNLOAD:
UnMakeMeService

Y LISTO!

Atte.
Eduardo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar