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;
