gd_2004lightcoutrol.~dpr

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

program GD_2004LightCoutrol;

uses
  Forms,
  windows,
  IniFiles,
  SysUtils,
  Comobj,
  UnitMain in 'UnitMain.pas' {frm_Main},
  UnitDataModule in 'UnitDataModule.pas' {frm_DataModule: TDataModule},
  CommClass in 'CommClass.pas',
  UnitCommSet in 'UnitCommSet.pas' {frm_CommSet},
  UnitControl in 'UnitControl.pas' {frm_Control},
  UnitEquipmentConfig in 'UnitEquipmentConfig.pas' {frm_EquipmentConfig},
  UnitPublic in 'UnitPublic.pas',
  UnitEquipmetSearch in 'UnitEquipmetSearch.pas' {frm_EquipmetSearch},
  UnitSystemConfig in 'UnitSystemConfig.pas' {frm_SystemConfig},
  TOffThreadClass in 'TOffThreadClass.pas',
  TOnThreadClass in 'TOnThreadClass.pas';

{$R *.res}
var
  hMutex:HWND;
  Ret: Integer;
  Myini:TIniFile;
begin
    Application.Initialize;
    begin
        hMutex:=CreateMutex(nil,False,'2004LightCoutrol'); //是判断值
        Ret:=GetLastError;
        If Ret<>ERROR_ALREADY_EXISTS Then
        begin
            //frm_spalsh:=Tfrm_spalsh.Create(application);
            //frm_spalsh.Show;
            //frm_spalsh.update ;
            //Application.Initialize;
            Application.Title := '【电灯控制系统3.00版】';
            //Application.Icon.LoadFromFile(ExtractFilePath(paramstr(0))+'B45.ICO');
            //Application.Icon.LoadFromFile(ExtractFilePath(paramstr(0))+IconStr);
            Application.CreateForm(Tfrm_Main, frm_Main);
  try
                Application.CreateForm(Tfrm_DataModule, frm_DataModule);
            except
                //frm_spalsh.close;
                //frm_spalsh.free;
                application.MessageBox('数据库不能正常连接,请重新注册','错误',mb_iconwarning);
                //application.CreateForm(Tfrm_connect,frm_connect);
                //frm_connect.ShowModal;
            end;
            //frm_spalsh.close;
            //frm_spalsh.free;
            try
               // frm_Land := Tfrm_Land.Create(Application);
                //frm_Land.ShowModal;
                //frm_Land.Free;
            finally
                //frm_Land.close;
            end;
            try
              Application.Run;
            except
            end;
        end
        else
        begin
            Application.MessageBox('【电灯控制系统3.00版】不能在同一系统下运行二次！',pchar(application.Title),MB_iconwarning);
            ReleaseMutex(hMutex);
        end;
    end;
end.