gd_warnicontrol.~dpr

delphi基于工业控制的串口通讯

program GD_WarniControl;

uses
  Forms,
  windows,
  IniFiles,
  SysUtils,
  Comobj,
  Preview in 'Preview.pas' {frm_Preview},
  UnitMain in 'UnitMain.pas' {frm_Main},
  UnitDataModule in 'UnitDataModule.pas' {frm_DataModule: TDataModule},
  CommClass in 'CommClass.pas',
  UnitCommSet in 'UnitCommSet.pas' {frm_CommSet},
  UnitEquipmentConfig in 'UnitEquipmentConfig.pas' {frm_EquipmentConfig},
  UnitPublic in 'UnitPublic.pas',
  UnitEquipmetSearch in 'UnitEquipmetSearch.pas' {frm_EquipmetSearch},
  UnitSystemConfig in 'UnitSystemConfig.pas' {frm_SystemConfig},
  TQueryThreadClass in 'TQueryThreadClass.pas',
  TMediaPlayerClass in 'TMediaPlayerClass.pas',
  UnitWarnInfoSearch in 'UnitWarnInfoSearch.pas' {frm_WarnInfoSearch},
  UnitSoftKeyClass in 'UnitSoftKeyClass.pas',
  UnitkeyCryptClass in 'UnitkeyCryptClass.pas',
  UnitConnectConfig in 'UnitConnectConfig.pas' {frm_ConnectConfig},
  UnitReport in 'UnitReport.pas' {frm_Report},
  UnitSpalsh in 'UnitSpalsh.pas' {frm_Spalsh},
  UnitLogin in 'UnitLogin.pas' {frm_Login},
  UnitUserConfg in 'UnitUserConfg.pas' {frm_UserConfg};

{$R *.res}

var
  hMutex:HWND;
  Ret: Integer;
begin
    Application.Initialize;
    begin
        hMutex:=CreateMutex(nil,False,'2004WarniCoutrol'); //是判断值
        Ret:=GetLastError;
        If Ret<>ERROR_ALREADY_EXISTS Then
        begin
            frm_spalsh:=Tfrm_spalsh.Create(application);
            sleep(1000);
            frm_spalsh.Show;
            frm_spalsh.update ;
            Application.Initialize;
            Application.Title := '【总线制报警系统1.01版】';
            Application.CreateForm(Tfrm_Login, frm_Login);
  Application.CreateForm(Tfrm_UserConfg, frm_UserConfg);
  try
                Application.CreateForm(Tfrm_DataModule, frm_DataModule);
            except
                frm_spalsh.close;
                frm_spalsh.free;
                application.MessageBox('数据库不能正常连接,请重新注册','错误',mb_iconwarning);
                application.CreateForm(Tfrm_ConnectConfig,frm_ConnectConfig);
                frm_ConnectConfig.ShowModal;
            end;

            frm_spalsh.close;
            frm_spalsh.free;
            {try
                frm_Login := Tfrm_Login.Create(Application);
                frm_Login.ShowModal;
            finally
                frm_Login.close;
            end;}
            try
              Application.Run;
            except
            end;
        end
        else
        begin
            Application.MessageBox('【总线制报警系统1.01版】不能在同一系统下运行二次！',pchar(application.Title),MB_ICONERROR+MB_OK);
            ReleaseMutex(hMutex);
        end;
    end;
end.