**************************************
* OCULTAR UNA APLICACION DEL CUADRO DE 
* DIALOGO "CERRAR PROGRAMA" (CTRL+ALT+SUPR)
**************************************

*-- Para que los usuarios astutos no corten un programa de control.

DECLARE LONG GetCurrentProcessId IN "kernel32"

DECLARE LONG RegisterServiceProcess IN "kernel32";
  LONG dwProcess,;
  LONG dwType

=RegisterServiceProcess( GetCurrentProcessId(), 1 )