tslmoney.dpr

来自「里面有个人一天消费管理」· DPR 代码 · 共 39 行

program TslMoney;

{%ToDo 'TslMoney.todo'}

uses
  windows,Messages, SysUtils, Variants, Classes, Graphics, Controls,forms,
  ExtCtrls,shellapi,
  frmmain in 'form\frmmain.pas' {MainFm},
  Common in 'unit\Common.pas',
  frmhomepage in 'form\frmhomepage.pas' {HomepageFm},
  frmIncome in 'form\frmIncome.pas' {IncomeFm},
  frmPayout in 'form\frmPayout.pas' {PayoutFm},
  frmBank in 'form\frmBank.pas' {BankFm},
  frmSystemSet in 'form\frmSystemSet.pas' {SystemSetFm},
  frmdata in 'form\frmdata.pas' {dataFm: TDataModule},
  frmsplash in 'form\frmsplash.pas' {SplashFm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'TslMoney';
  SplashFm:=TSplashFm.Create(nil);
  SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar('yyyy-MM-dd'));
  Application.CreateForm(TMainFm, MainFm);
  Application.CreateForm(THomepageFm, HomepageFm);
  Application.CreateForm(TIncomeFm, IncomeFm);
  Application.CreateForm(TPayoutFm, PayoutFm);
  Application.CreateForm(TBankFm, BankFm);
  Application.CreateForm(TSystemSetFm, SystemSetFm);
  Application.CreateForm(TdataFm, dataFm);
  SplashFm.Close;
  SplashFm.Free;
  Application.Run;



end.