Delphi关闭程序

你在关闭主窗体事件里加上判断，判断其他窗体是否还开着，若打开，就不关闭。或者你打开子窗体时尽量用form1.showmodal，不要用show打开子窗体兆胡，族链拦这样的唤弯话，子窗体必须关闭后才能回到主窗体

API函数

1: 找到窗口句柄

var

hd:THandle

hd:=FindWindow('360',nil) //这里的360必须写全,比如窗备闹口名字是"安全卫士360"则必须写全,,这里不支持模糊查询的...

2: 发送消息带辩关闭窗蠢滚缺口.

if hd>0 then

PostMessage(hd, WM_CLOSE, 0, 0)

---