var
I: Integer;
begin
with MainFrm(主窗体) do
for I := MDIChildCount - 1 downto 0 do
MDIChildren[I].Close;
end;
I: Integer;
begin
with MainFrm(主窗体) do
for I := MDIChildCount - 1 downto 0 do
MDIChildren[I].Close;
end;
你登录的form名为Login,主窗体为MainForm,生成的应用程序名为Login.exe注销后的动作应该是:
Login.close;
Winexec('Login.exe',SW_SHOWDEFAULT );
Main.close;