妖哥

显示但禁用标题栏上的关闭按钮：
在Form的OnShow事件中写：
EnableMenuItem(GetSystemMenu((Sender as TForm).Handle, FALSE), SC_CLOSE, MF_DISABLED);