cw.dpr

这是一个正式的项目工程

program CW;

uses
  Forms,
  Dialogs,
  Windows,
  SysUtils,
  Messages,
  Main in 'Main.PAS' {frmMain},
  splash in 'splash.pas' {frmSplash},
  wsTypes in 'wsTypes.pas',
  wsCores in 'wsCores.pas',
  MainDB in 'MainDB.pas' {dmMainDB: TDataModule},
  ControlPanel in 'ControlPanel.pas' {frmControlPanel},
  PSystem in 'PSystem.pas' {frmPSystem},
  resMain in 'resMain.pas',
  CodeMaintaince in 'CodeMaintaince.pas' {frmCodeMaintaince},
  SendCommand in 'SendCommand.pas' {frmSendCommand},
  Group in 'Group.pas' {frmGroup},
  Hourse in 'Hourse.pas' {frmHourse},
  Project in 'Project.pas' {frmProject},
  LogInfo in 'LogInfo.pas' {frmLogInfo},
  RealChart in 'RealChart.pas' {frmRealChart},
  StandardGravity in 'StandardGravity.pas' {frmStandardGravity},
  History in 'History.pas' {frmHistory},
  CommParameter in 'CommParameter.pas' {frmCommParameter},
  DataAnalysis in 'DataAnalysis.pas' {frmDataAnalysis},
  DataDisp in 'DataDisp.pas' {frmDataDisp},
  GaugeP in 'GaugeP.pas',
  Sampling in 'Sampling.pas',
  ErrorReport in 'ErrorReport.pas' {frmErrorReport};

{$R *.RES}
var
  hwndPrev :HWND;

begin
  Application.Initialize;
  hwndPrev:=FindWindow('TfrmMain','脚手架自动升降控制系统');
  if hwndPrev<>0 then begin
     ShowMessage('已经有一个系统正在您的机器中运行！');
     SetForeGroundWindow(hwndPrev);
     Application.Terminate;
  End;

  DateSeparator:='-';
  ShortDateFormat:='YYYY-MM-DD';
  TwoDigitYearCenturyWindow:=70;

////////////////////////////////////////
  frmSplash:=TfrmSplash.Create(Application);
  frmSplash.lblCompany.Caption:='慧森软件';
  frmSplash.Show;
  frmSplash.Update;
  screen.Cursor:=-11;
  Sleep(3000);
  Application.ProcessMessages;
  Application.Title := '脚手架自动升降控制系统';
  GetBDEParams();
  InitCommandID();
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TdmMainDB, dmMainDB);
  if UserInfo.UserName<>'' then
  begin
    Application.CreateForm(TfrmSendCommand, frmSendCommand);
  end;
  frmSplash.Hide;
  frmSplash.Free;
  Screen.Cursor:=0;
  Application.Run;
end.