meter.dpr

来自「Monitor.dfm Meter.dpr pasMain.pas」· DPR 代码 · 共 76 行

program Meter;

uses
  Forms,
  windows,
  messages,
  pasMain in 'pasMain.pas' {frmMain},
  DM in 'DM.pas' {DM1: TDataModule},
  Info in 'Info.pas' {frmInfo},
  InterCom in 'InterCom.pas' {Command},
  Setting in 'Setting.pas' {frmSetup},
  Promot in 'Promot.pas' {frmPromot},
  Err in 'Err.pas' {WarnAbout},
  Global in 'Global.pas',
  Moduler in 'Moduler.pas' {frmModuler},
  Autotest in 'Autotest.pas' {frmtestarg},
  ReadData in 'ReadData.pas' {frmRead},
  Report2 in 'report2.pas' {frmreport2},
  Price in 'Price.pas' {frmprice},
  input in 'input.pas' {frminput},
  OUTPUT in 'OUTPUT.pas' {frmoutput},
  tpwin in 'Tpwin.pas' {Frmtpwin},
  About in 'About.pas' {AboutBox},
  report in 'Report.pas' {Frmreport},
  choose in 'choose.pas' {chooserdt},
  frmcomsum in 'frmcomsum.pas' {Frmconsumer},
  reportconsumer in 'reportconsumer.pas' {Frmreportconsu},
  security in 'security.pas' {Frmsecurity},
  power in 'power.pas' {frmpower},
  find in 'find.pas' {Frmfind},
  Logindlg in 'Logindlg.pas' {Formdlg},
  Alert in 'Alert.pas' {frmAlert};

const
  CM_restore=wm_user+$1000;
  appname='Meter';
  var
  rvhandle:hwnd;
{$R *.RES}

begin
  rvhandle:=findwindow(appname,nil);
  if rvhandle>0 then
  begin
        postmessage(rvhandle,cm_restore,0,0);
        exit
  end;
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmSetup, frmSetup);
  Application.CreateForm(TDM1, DM1);
  Application.CreateForm(TfrmInfo, frmInfo);
  Application.CreateForm(TCommand, Command);
  Application.CreateForm(TfrmPromot, frmPromot);
  Application.CreateForm(TWarnAbout, WarnAbout);
  Application.CreateForm(TfrmModuler, frmModuler);
  Application.CreateForm(Tfrmtestarg, frmtestarg);
  Application.CreateForm(TfrmRead, frmRead);
  Application.CreateForm(Tfrmreport2, frmreport2);
  Application.CreateForm(Tfrmprice, frmprice);
  Application.CreateForm(Tfrminput, frminput);
  Application.CreateForm(Tfrmoutput, frmoutput);
  Application.CreateForm(TFrmtpwin, Frmtpwin);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TFrmreport, Frmreport);
  Application.CreateForm(Tchooserdt, chooserdt);
  Application.CreateForm(TFrmconsumer, Frmconsumer);
  Application.CreateForm(TFrmreportconsu, Frmreportconsu);
  Application.CreateForm(TFrmsecurity, Frmsecurity);
  Application.CreateForm(Tfrmpower, frmpower);
  Application.CreateForm(TFrmfind, Frmfind);
  Application.CreateForm(TFormdlg, Formdlg);
  Application.CreateForm(TfrmAlert, frmAlert);
  Application.Run;
end.