xfprint.dpr

来自「“汇华印刷v2.0”是在实践的基础上开发的一个全自动多功能信封打印系统」· DPR 代码 · 共 35 行

program Project1;

uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {main},
  Unit2 in 'Unit2.pas' {sj},
  Unit3 in 'Unit3.pas' {tj},
  Unit4 in 'Unit4.pas' {about},
  data in 'data.pas' {dog: TDataModule},
  Unit5 in 'Unit5.pas' {option};

var mydate:Tdatetime;
{$R *.res}

begin
main:=Tmain.Create(application);
main.Show;
main.Update;
mydate:=gettickcount;
while((gettickcount-mydate)/1000<1)do;
  Application.Initialize;
  Application.Title := '汇华印刷';
  Application.HelpFile := 'E:\bak\语言\源码\信封打印\信封打印HHDY.HLP';
  Application.CreateForm(Tsj, sj);
  Application.CreateForm(Tmain, main);
  Application.CreateForm(Ttj, tj);
  Application.CreateForm(Tabout, about);
  Application.CreateForm(Tdog, dog);
  Application.CreateForm(Toption, option);
  main.close;
 main.Free;
  Application.Run;
end.