Desabilitar ALT F4

Question

Ola,Como que fa�o para desabilitar ALT+F4.desde jah agrade�o!!!...

Fer · Answer

Aeeeee vai

public
{ Public declarations }
fecha: Boolean;
end;

implementation

{$R *.DFM}

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;

Dor_poa · Answer

Desabilitar Teclas Ctrl+Alt+DelAi vai um codigo que peguei no site da Borland que trava as teclas(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)varOldValue : LongBool;begin{liga a trava}SystemParametersInfo(97, Word(True), @OldValue, 0);{desliga a trava}SystemParametersInfo(97, Word(False), @OldValue, 0);end;...

Rodrigo_rcp · Answer

OnKeyPressbeginif key=vk_f4 thenabort;end;end....