Ahí va:
Código Delphi
[-]
procedure EnableSysCloseItem(Handle: HWND; Enable: Boolean);
const
Flags : array[Boolean] of Integer = (MF_GRAYED, MF_ENABLED);
var
SysMenu : HMENU;
begin
SysMenu := GetSystemMenu(Handle, false);
EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or Flags[Enable]);
end;
Te sirve para habilitar (true) o inhabilitar (false) el icono de cerrar de la ventana cuyo identificador (
handle) le pases.
// Saludos