Como Bloquear Alt F4 no meu sistema?

Question

Caros amigos, ai vem uma pergunta que as vezes pode ser boba mas nao consegui implementar, como bloqueio o comando Alt+F4 dentro do meu sistema?!AtenciosamenteLuiz Claudio V. Santos...

Jc_analista · Answer

Espero ter ajudado: :lol:

Function GetStateK (Key: integer): boolean;
begin
Result := Odd (GetKeyState (Key));
end;

procedure Tfrm_HIP.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If Not fecha Then
Action := caNone Else
Action := caFree;
end;

procedure Tfrm_HIP.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If GetStateK (VK_LMENU) And (Key = VK_F4) Then
fecha := False;
end;

Luiz.claudio.vieira · Answer

Este Fecha do codigo abaixo, e o que?! E uma variavel?If Not fecha ThenAction := caNone ElseAction := caFree;...

F�rum Como Bloquear Alt F4 no meu sistema? #221896