Buscar por:

Desabilita alt + f4 e esc

Código

Fecha:boolean; // variavel booleana para utilizar no procedimento do desabilita alt+f4

Function StatusTecla (Key: integer): boolean;//função para desabilitar alt+f4

begin

Result := Odd (GetKeyState (Key)); //Result := se a tecla for pressionada

end;

procedure TF_Login.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

If StatusTecla (VK_LMENU) And (Key = VK_F4) Then //Se esc e Alt+f4 for apertada

fecha := False; //variavel fecha vai desabilitar

end;

procedure TF_Login.FormClose(Sender: TObject; var Action: TCloseAction);

begin

If Not fecha Then //se a variavel de fechamento fecha estiver falsa

Action := caNone Else // nao realizará  nenhuma operação

Action := caFree;

end;

end.

//Para fechar o formulário antes de dar o comando close vc deverá colocar a variavel fecha:=true;