Desactivar el botón de cerrar [x] de una ventana

[dec]

// Para desactivar el botón de cerrar [x] de una ventana:

/*****************************************************************************
SinSalida
******************************************************************************

Desactiva el botón de cerrar ('x') de una ventana, dibujándolo gris
(Desavtivado).
Utiliza API's de Windows.

Parámetros:
TForm *Ventana: Un puntero al formulario del que se desea desactivar
el botón de cerrar ventana.

Retorna:
Nada.

***********************************************************************
***********************************************************************/

void __fastcall SinSalida (TForm *Ventana)
{
HMENU hMenu = GetSystemMenu(Ventana->Handle, FALSE);
EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND | MF_GRAYED);
DrawMenuBar(Ventana->Handle);
}


/*****************************************************************************
ConSalida
******************************************************************************

Vuelve a activar el botón de cerrar ('x') de una ventana, dibujándolo
en su color normal (Negro).
Utiliza API's de Windows.

Parámetros:
TForm *Ventana: Un puntero al formulario del que se desea activar
el botón de cerrar ventana.

Retorna:
Nada.

***********************************************************************
***********************************************************************/

void __fastcall ConSalida (TForm *Ventana)
{
HMENU hMenu = GetSystemMenu(Ventana->Handle, FALSE);
EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND | MF_ENABLED);
DrawMenuBar(Ventana->Handle);
}

// Angel M. Aranguren