Como Bloquear Alt F4 no meu sistema?

Delphi

24/03/2004

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?!

Atenciosamente

Luiz Claudio V. Santos


Luiz.claudio.vieira

Luiz.claudio.vieira

Curtidas 0

Respostas

Jc_analista

Jc_analista

24/03/2004

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;


GOSTEI 0
Luiz.claudio.vieira

Luiz.claudio.vieira

24/03/2004

Este Fecha do codigo abaixo, e o que?! E uma variavel?

If Not fecha Then
Action := caNone Else
Action := caFree;


GOSTEI 0
POSTAR