Impedir que seu projeto seja fechado com Alt+F4

Toda Vez Que o **** recebe hum Comando parágrafo Ser Fechado, 
Como tal Form1.Close / application.Terminate OU MESMO UMA ateh  MENSAGEM  WM_CLOSE, o Evento, OnCloseQuery E USADO. Este Evento Passa hum Parâmetro POR
Referência normalmente Chamado de CanClose. Se alternarmos o valor 
dEste Parâmetro parágrafo falsa O Processo de fechar o Formulário  
. sera Cancelado 


. 1  Declare hum campo (Variável) na Seção  Privada :

Código  PHP:

   privado  
     FPodeFechar :  boolean ;  

2.  No Evento  OnCreate  (2 cliques não ****) coloque:

Código PHP:

procedimento TForm1 . FormCreate ( Sender :  TObject );  começar  
FPodeFechar  : =  false ;  final ;  

. 3  No Evento  OnCloseQuery  fazer **** coloque:

Código PHP:

procedimento TForm1 . FormCloseQuery ( Sender :  TObject ; var  CanClose:  Boolean );  começar  
 CanClose  : =  FPodeFechar ;  final ;  

Mas ai SEM o Alt + F4, o usuario nao podera fexar uma Aplicação, parágrafo ISSO, poderemos botar hum Button, com a funçao de fexar o ****, UO liberar o Alt F4  


4.  Coloque o Botão não **** e declaram que não há  OnClick :

Código PHP:

procedimento TForm1 . FecharClick ( Sender :  TObject );  começar  
FPodeFechar  : =  verdadeiro ;  
   Fechar ;  final ;  

ASSIM, AO apertar o Botao Fechar, Seu **** sera fexado =]