Visual Basic - Algun API para que no cierren el programa ....

Hola a todas(os) !!

Hay alguna API que no permita que mi programa lo cierren con alt-f4 pero que si lo haga cuando se cierre la sesión del usuario o haga shutdown del windows 2000?

O ejecutar el programa en forma oculta y que no lo muestre en la barra de tareas ?


Saludos a todos !!

'En un módulo :
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public 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 RemoverPrograma_en_la_Lista()
Dim lngProcessID As Long
Dim lngReturn As Long

lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub

Public Sub RestaurarProgram_en_la_Lista()
Dim lngProcessID As Long
Dim lngReturn As Long

lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub

Private Sub Command1_Click()
RemoverPrograma_en_la_Lista
End Sub

Private Sub Command2_Click()
RestaurarProgram_en_la_Lista
End Sub

Ojo el form tiene que estar invisible, de lo contrario tenés que ingresar en el módulo QueryUnload( )y poner la variable de devolución
en false para que no pueda cerrarse tu programa.
En el caso del cierre del Windows, se fuerza el cierre por lo que no pasa por QueryUnload, así que no te preocupes.

Todo este código funciona muy bien el Win9.X , en Win 2000 deberías verificar las declaraciones y los parámetros de las APIS, ya que difieren por ser Unicode.

espero que te sirva.
BENJO

Como no se que es eso del QueryUnload(), no entiendo esto:
"Ojo el form tiene que estar invisible, de lo contrario tenés que ingresar en el módulo QueryUnload( )y poner la variable de devolución
en false para que no pueda cerrarse tu programa.
En el caso del cierre del Windows, se fuerza el cierre por lo que no pasa por QueryUnload, así que no te preocupes. "

Si no te importa, podrias esplicarmelo. Muchas gracias

Veràs cuando un usuario hace click en la X del formulario, o cuando un comando "Unload Me" es ejecutado para cerrar el formulario antes de que se descarge el formulario y desaparezca de la vista y de memoria
se llama al EVENTO form1_QueryUnload()
ese evento tiene unos paràmetros, si por alguna razon el formulario no se debe cerrar, por ej mmm que no se haya guardado el documento editado ,
se debe establecer en False un parametro no me acuerdo el nombre,pero se autoescribe cuando haces click en el evento, de todos modos está todo en la ayuda del vb5 y 6.

ojo no confundir QueryUnload con el evento Unload, este ùltimo se ejecuta cuando ya desapareció el formulario, y se le da al programador la posibilidad de guardar info en el disco o algo, antes de que el formulario asi como los controles se descargen de la memoria por completo, ya que despues no estaràn disponible sus nombre ni propiedades.