Mematikan Alt+F4

Jika kita membuat applikasi Delphi, kadang kala applikasi kita bisa di bunuh dengan hanya menekan tombol Alt+F4. Biar aman, dan sesuai prosedur applikasi, alangkah baiknya applikasi kita di create prosedur untuk mematikan hal tersebut. Ini sintaknya :

public
procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);
end;
{...}

implementation
{...}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
  Handled := False;
  case Msg.Message of
  WM_SYSKEYDOWN:
  if Msg.wParam = VK_F4 then
  Handled := True; // don't allow ALT-F4
 end;
end;