sysmanage.dpr

用户权限管理系统

program SysManage;

uses
  ShareMem,
  Forms,
  Windows,
  SysUtils,
  controls,
  uMain in 'uMain.pas' {frmMain},
  uUserAttr in 'uUserAttr.pas' {frmUserAttr},
  uSubSystem in 'uSubSystem.pas' {frmSubSystem},
  uRightGrp in '..\class\uRightGrp.pas' {frmRightGrp},
  uSubSysUser in 'uSubSysUser.pas' {frmSubSysUser},
  uChangePwdCard in '..\class\uChangePwdCard.pas' {frmChangePwdCard},
  uChangePwd in '..\class\uChangePwd.pas' {frmChangePwd},
  uUserGrpAttr in 'uUserGrpAttr.pas' {frmUserGrpAttr},
  uRightGrpAttr in 'uRightGrpAttr.pas' {frmRightGrpAttr},
  uSubSysAttr in 'uSubSysAttr.pas' {frmSubSysAttr},
  uSearch in 'uSearch.pas' {frmSearch},
  uUserLog in '..\class\uUserLog.pas' {frmUserLog},
  uMoveToGrp in 'uMoveToGrp.pas' {frmMoveToGrp},
  uSubSysModAttr in 'uSubSysModAttr.pas' {frmSubSysModAttr},
  uSubRightChg in 'uSubRightChg.pas' {frmSubRightChg},
  uRightGrpUser in 'uRightGrpUser.pas' {frmRightGrpUser},
  uSelectUser in 'uSelectUser.pas' {frmSelectUser},
  untCustomReport in '..\class\untCustomReport.pas' {frmCustomReport},
  uLogin in '..\class\uLogin.pas' {frmLogin},
  untPublic in '..\class\untPublic.pas',
  untUser in '..\class\untUser.pas',
  RightWebIntf in '..\class\RightWebIntf.pas',
  untDBAdapterManager in '..\class\untDBAdapterManager.pas',
  untDM in '..\DM\untDM.pas' {DM: TDataModule};

{$R *.res}

var
  hMutex: HWND;
  Ret: Integer;
begin
  Application.Initialize;
  Application.Title := 'CITCC-用户权限管理系统';
  hMutex := CreateMutex(nil, False, 'CITCC-用户权限管理系统');
  Ret := GetLastError;
  try
    if Ret <> ERROR_ALREADY_EXISTS then
    begin
      Application.CreateForm(TDM, DM);
      Application.CreateForm(TfrmMain, frmMain);
      frmLogin := TfrmLogin.Create(Application);
      frmLogin.iMod := 0;
      if frmLogin.ShowModal <> mrOk then
      begin
        Application.ShowMainForm := false;
        Application.Terminate;
      end
      else
      begin
        try

        finally
          FreeAndNil(frmLogin);
        end;
      end;
    end
    else
    begin
      MessageBox(hMutex, 'CITCC-用户权限管理系统已经运行！', '警告',
        MB_ICONWARNING);
    end;
    Application.Run;
  finally
    ReleaseMutex(hMutex);
    CloseHandle(hMutex);
  end;
end.