登陆窗口用login.Close可以么?
我的做法是,Application.MainForm设置成主窗体。然后在工程文件里面这样写。
因为你的登陆窗口暂时不用了,就释放掉它,没有必要hide着,如果需要重新登陆的话再创建并显示它。
uses
Forms,
Windows
.....
var
hMutex:HWND;
Ret:Integer;
begin
Application.Initialize;
Application.Title := '新太阳进销存系统';
{只允许运行一个程序副本}
hMutex:=CreateMutex(nil,False,PChar('新太阳进销存系统'));
Ret:=GetLastError;
if Ret<>ERROR_ALREADY_EXISTS then
begin
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(Tfrm_Login, frm_Login);
frm_Login.ShowModal;
if frm_Login.Pass then
begin
frm_Login.Free;
Application.Run;
end else
begin
frm_Login.Free;
Application.Terminate;
end;
end
else
begin
MyMsgBox('【新太阳个体进销存系统】已经运行,请不要打开多个副本!');
ReleaseMutex(hMutex);
Application.Terminate;
end;
end.