project1.dpr

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

program Project1;

uses
  Forms,
  messages,
  windows,
  Mainfrm in 'Mainfrm.pas' {MainForm},
  DataModule1 in 'DataModule1.pas' {DM: TDataModule},
  Splashfrm in 'Splashfrm.pas' {SplashForm},
  GetManfrm in 'GetManfrm.pas' {GetManForm},
  Loginfrm in 'Loginfrm.pas' {LoginForm},
  Paramsfrm in 'Paramsfrm.pas' {ParamsForm},
  Syncfrm in 'Syncfrm.pas' {SyncForm},
  CheckDutyfrm in 'CheckDutyfrm.pas' {CheckDutyForm},
  DayReportfrm in 'DayReportfrm.pas' {DayReportForm},
  Bbsfrm in 'Bbsfrm.pas' {BBSForm},
  PublicFuncfrm in 'PublicFuncfrm.pas',
  Penaltyfrm in 'Penaltyfrm.pas' {PenaltyForm},
  PenaltyFlashfrm in 'PenaltyFlashfrm.pas' {PenaltyFlashForm},
  Shoushifrm in 'Shoushifrm.pas' {ShouShiForm},
  Selectfrm in 'Selectfrm.pas' {SelectForm},
  ShoushiRptfrm in 'ShoushiRptfrm.pas' {ShoushiRptForm},
  Applyfrm in 'Applyfrm.pas' {ApplyForm},
  ApplyRptfrm in 'ApplyRptfrm.pas' {ApplyRptForm},
  qryConditionfrm in 'qryConditionfrm.pas' {qryConditionForm},
  ApplyEditRptfrm in 'ApplyEditRptfrm.pas' {ApplyEditRptForm},
  GivePrizefrm in 'GivePrizefrm.pas' {GivePrizeForm},
  Invoicefrm in 'Invoicefrm.pas' {InvoiceForm},
  QryGridfrm in 'QryGridfrm.pas' {QryGridForm},
  KaoqinFlashfrm in 'KaoqinFlashfrm.pas' {KaoqinFlashForm},
  TiChengfrm in 'TiChengfrm.pas' {TiChengForm},
  qryConditionfrm1 in 'qryConditionfrm1.pas' {qryConditionForm1},
  Analysefrm in 'Analysefrm.pas' {AnalyseForm};

const
  APPNAME='苏视广告';
var
  MyHandle:Hwnd;

{$R *.res}

begin
  MyHandle:=FindWindow(APPNAME,nil);
  if MyHandle>0 then
  begin
      MessageBox(Application.Handle,'程序已运行，请点击状态栏蓝色图标','信息',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL);
      Exit;
  end;
  SplashForm:=TSplashform.Create(Application);
  Splashform.ShowModal;
  SplashForm.Free;
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TDM, DM);
  Application.Run;
  
end.