procedure ClsMDIChildWindow(MainForm:TForm;exFmName:Pchar);
var
I:integer;
begin
for i:=MainForm.MDIChildCount-1 downto 0 do
if UpperCase(MainForm.MDIChildren[i].Name)<>UpperCase(String(exFmName))then
MainForm.MDIChildren[i].Close;
end;
在退出的时候调用
ClsMDIChildWindow(fmMain,''); //fmMain为主窗口