执行 Appl��������,����ʧ��ication.Terminate 后, OnDestroy 中的代码还会执行, 但不会理会 OnCloseQuery、OnClose 中的代码了.
procedure TForm1.Button1Click(Sender: TObject);begin// SendMessage(Application.Handle, WM_CLOSE, 0, 0);// SendMessage(Handle, WM_CLOSE, 0, 0);// Halt(0);// PostQuitMessage(0); Application.Terminate;end;procedure TForm1.FormDestroy(Sender: TObject);begin Beep;end;
At-lib网站分类目录汇集全国所有高质量网站，是中国权威的中文网站分类目录，给站长提供免费网址目录提交收录和推荐最新最全的优秀网站大全是名站导航之家
www.at-lib.cn中国链接目录简称链接目录，是收录优秀网站和淘宝网店的网站分类目录，为您提供优质的网址导航服务，也是网店进行收录推广，站长免费推广网站、加快百度收录、增加友情链接和网站外链的平台。
www.cnlink.org35目录免费收录各类优秀网站，全力打造互动式网站目录，提供网站分类目录检索，关键字搜索功能。欢迎您向35目录推荐、提交优秀网站。
www.35mulu.com就要爱网站目录，按主题和类别列出网站。所有提交的网站都经过人工审查，确保质量和无垃圾邮件的结果。
www.912219.com伍佰网站目录免费收录各类优秀网站，全力打造互动式网站目录，提供网站分类目录检索，关键字搜索功能。欢迎您向伍佰目录推荐、提交优秀网站。
www.wbwb.net