maindemo.dpr

来自「ziptv为delphi控件」· DPR 代码 · 共 37 行

Program MainDemo;

Uses
  Forms,
  Main in 'Main.pas' {frmMain},
  Unit1 in 'Unit1.pas' {frmAddFiles},
  Unit2 in 'Unit2.pas' {frmExtract},
  Unit3 in 'Unit3.pas' {frmOverwrite},
  Unit4 in 'Unit4.pas' {frmUUEncode},
  Unit5 in 'Unit5.pas' {frmErrorMsgs},
  Unit6 in 'Unit6.pas' {frmRunFile},
  Unit7 in 'Unit7.pas' {frmEditComments},
  Unit8 in 'Unit8.pas' {frmTestArchive},
  Unit9 in 'Unit9.pas' {frmComment},
  Unit10 in 'Unit10.pas' {frmInput},
  Unit11 in 'Unit11.pas' {frmSplitArchive};

{$R *.RES}
{$DEFINE ZipView}

Begin
	Application.Initialize();
   //Application.HelpFile := '.hlp';
   Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmAddFiles, frmAddFiles);
  Application.CreateForm(TfrmExtract, frmExtract);
  Application.CreateForm(TfrmOverwrite, frmOverwrite);
  Application.CreateForm(TfrmUUEncode, frmUUEncode);
  Application.CreateForm(TfrmRunFile, frmRunFile);
  Application.CreateForm(TfrmTestArchive, frmTestArchive);
  Application.CreateForm(TfrmErrorMsgs, frmErrorMsgs);
  Application.CreateForm(TfrmEditComments, frmEditComments);
  Application.CreateForm(TfrmInput, frmInput);
  Application.CreateForm(TfrmSplitArchive, frmSplitArchive);
  Application.Run();
End.