//登录 LoginFm := TLoginFM.Create(Application); try LoginResult := LoginFm.ShowModal; finally LoginFm.Free; end; //登录失败 if LoginResult <> 1 then begin DM.Free; SystemParam.Free; if not DEF_MultMine then begin ReleaseMutex(OneMutex); CloseHandle(OneMutex); end; Exit; end; end else begin SystemParam.__UserID := 'sys'; end; // Application.CreateForm(TMainFm, MainFm); Application.CreateForm(TBJDY_Fm, BJDY_Fm); Application.CreateForm(TXXXX_Fm, XXXX_Fm);
LoginFm := TLoginFM.Create(Application);
try
LoginResult := LoginFm.ShowModal;
finally
LoginFm.Free;
end;
//登录失败
if LoginResult <> 1 then
begin
DM.Free;
SystemParam.Free;
if not DEF_MultMine then
begin
ReleaseMutex(OneMutex);
CloseHandle(OneMutex);
end;
Exit;
end;
end
else
begin
SystemParam.__UserID := 'sys';
end;
//
Application.CreateForm(TMainFm, MainFm);
Application.CreateForm(TBJDY_Fm, BJDY_Fm);
Application.CreateForm(TXXXX_Fm, XXXX_Fm);