complior.dpr

某疗养院动脉硬化管理系统

program Complior;

uses
  Forms,
  Windows,
  Messages,
  Dialogs,
  BaseUnit in 'Pub\BaseUnit.pas' {Form1},
  Main in 'Main.pas' {FrmMain},
  Login in 'system\Login.pas' {FrmLogin},
  RecordForm in 'Pub\RecordForm.pas' {FrmRecord},
  EditPass in 'system\EditPass.pas' {FrmEditPass},
  UserManage in 'system\UserManage.pas' {FrmUser},
  SystemSet in 'system\SystemSet.pas' {FrmSystemSet},
  PubFunction in 'Pub\PubFunction.pas',
  DataModule in 'Pub\DataModule.pas' {DM: TDataModule},
  PatientList in 'WorkFlow\PatientList.pas' {FrmPatientList},
  CheckItem in 'WorkFlow\CheckItem.pas' {FrmCheckItem},
  ExamDesc in 'Modal\ExamDesc.pas' {FrmExamDesc},
  ExamResult in 'WorkFlow\ExamResult.pas' {FrmExamResult},
  PicDesc in 'Modal\PicDesc.pas' {FrmPicDesc},
  Splash in 'Splash.pas' {FrmSplash},
  DBManage in 'system\DBManage.pas' {FrmDB},
  Log in 'system\Log.pas' {FrmLog},
  PatientDataM in 'WorkFlow\PatientDataM.pas' {PatientDM: TDataModule},
  ExamAdvice in 'Modal\ExamAdvice.pas' {FrmExamAdvice},
  RoomSet in 'system\RoomSet.pas' {FrmCode},
  about in 'help\about.pas' {FrmAbout},
  DBSet in 'system\DBSet.pas' {FrmDBSet},
  Select in 'WorkFlow\Select.pas' {FrmSelect},
  TimeSet in 'system\TimeSet.pas' {FrmTimeSet},
  PatientResult in 'WorkFlow\PatientResult.pas' {FrmPatientResult},
  FailtoHIS in 'WorkFlow\FailtoHIS.pas' {FrmFailtoHIS};

{$R *.res}

var
  hMutex:HWND;
begin
  hMutex:=CreateMutex(nil,false,'Complior');
  if GetLastError<>ERROR_ALREADY_EXISTS then
  begin
    Application.Title:='Complior by objectsoft.com.cn';
    Application.Initialize;
    Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TPatientDM, PatientDM);
  Application.CreateForm(TFrmLogin, FrmLogin);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFrmFailtoHIS, FrmFailtoHIS);
  FrmLogin.ShowModal;
    FrmLogin.Free;
    Application.Run;
  end
  else
    application.MessageBox('程序已运行！','警告',mb_ok+mb_iconwarning);
  ReleaseMutex(hMutex);
end.