Mendisable Menu Close pada Delphi

niiiiiiiiiiiiiihh..................
temen2 pasti juga udah banyak yang tau masalah macem ini.

mendisable menu Close/X pada Form Delphi.

yang aslinya seperti ini :



Tombol Close / X bisa di Disable menjadi seperti ini :



caranya mudah.....

letakkan koding di bawah ini pada event OnCreat di Form.


var
  hMenuHandle : HMENU;
begin
  hMenuHandle:=GetSystemMenu(Form1.Handle,False);

  if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

end;